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Abstract 


An  approach  to  the  problem  of  optimal 
operation  of  an  existing  processing  system  in  the 
face  of  uncertainty  was  suggested.  An  intrinsic 
concept  is  the  restriction  of  the  study  to  overall 
process  relationships  and  operating  conditions, 
leaving  the  optimization  of  individual  unit 
operation  for  later,  more  detailed,  studies  as 
the  need  arises. 

A  simple,  mathematically  tractable, 
model  of  overall  relationships  is  developed,  enabling 
deterministic  optimization  with  a  minimum  of  effort. 
Critical  features  of  the  model  are  identified,  and  the 
extent  of  uncertainty  about  those  features  expressed 
quantitatively.  The  implications  of  uncertainty  are 
recognized,  particularly  with  reference  to  the  choice 
of  optimal  operating  conditions.  A  quantitative 
estimate  of  the  expected  cost  of  uncertainty,  the  value 
of  removing  all  uncertainty  from  the  decision,  is 
made . 

An  analysis  of  the  butadiene  section  of 
a  synthetic  rubber  plant  was  used  to  illustrate  the 
procedure.  A  Nagiev  model  of  the  process  was  readily 
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optimized  with  the  help  of  nonlinear  pattern  search 
and  linear  programming.  Critical  uncertain  parameters 
were  identified  and  then  treated  as  random  variables 
characterized  by  subjective  probability  distributions. 
A  set  of  guidelines  for  process  operation  in  the  face 
of  uncertainty  were  developed  to  replace  a  rigid 
specification  of  operating  conditions.  Monte  Carlo 
simulation  was  used  to  estimate  the  expected  cost  of 
uncertainty . 
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I .  INTRODUCTION 


Since  the  Industrial  Revolution,  man  has  become 
increasingly  dependent  on  the  development  and  implemen¬ 
tation  of  a  rapidly  expanding  technology  to  meet  his 
needs  and  fulfill  his  desires.  The  result  has  been  the 
evolution  of  the  modern  industrial  nation.  Because  a 
major  sector  of  the  nation's  economy  is  supported  by 
industry  based  on  some  type  of  processing,  the 
efficient  design  and  operation  of  processing  systems 
is  vital. 

Rudd  and  Watson,  in  their  text  (1) r  have  discussed 
many  of  the  problems  encountered  in  a  process  engineering 
study.  They  define  a  processing  system  as  a  "collection 
of  equipment  which  effects  the  transformation  of  materials 
through  chemical  reaction,  phase  transition,  heating 
and  cooling,  agglomeration,  size  reduction,  separation, 
extraction,  combustion  and  so  forth".  Processing 
systems  range  in  size  and  complexity  from  the  basement 
still  to  the  large  commercial  systems.  The  smaller 
systems  are  relatively  simple  and  easily  exploited. 
However,  as  size  and  complexity  increase,  more  extensive 
analysis  is  required  to  achieve  an  effective  system. 
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The  larger  system  is  more  complicated  internally 
and  subject  to  numerous  external  restrictions. 

Resources  are  limited  and  investment  considerable. 

The  system  must  satisfy  many,  often  conflicting, 
objective  criteria.  It  is  no  longer  sufficient  to 
accept  any  system  which  produces  at  a  profit;  some  effort 
must  be  made  to  find  the  system  which  best  achieves  the 
objectives  set  for  it.  This  latter  is  the  province  of 
optimization  theory.  An  excellent  discussion  of  the 
organization,  techniques  and  practical  aspects  of 
optimization  studies,  with  particular  reference  to  process 
optimization  studies,  can  be  found  in  Beveridge  and 
Schechter's  recent  text  on  the  subject  (2). 

This  work  is  primarily  concerned  with  the 
optimal  operation  of  existing  chemical  processing 
systems.  When  the  system  exists,  the  equipment 
characteristics  and  configuration  are  already  set;  the 
investment  is  fixed.  To  some  extent,  the  operation  of 
the  system  has  been  observed  and  is  known.  Solving 
this  process  optimization  problem  implies  choosing  a 
set  of  operating  variables  so  as  to  optimize  some 
selection  criterion  while  satisfying  all  internal  and 
external  constraints  on  the  system.  A  comparable 
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problem  arises  in  the  more  complex  system  design 
studies.  A  similar  analysis  is  carried  out  during 
evaluation  of  alternate  configurations  and  levels 
of  investment.  It  is  complicated  by  the  need  to 
determine  optimal  design  variables  as  well  as  optimal 
operating  variables.  Sargent  (3)  has  done  a  survey 
and  discussion  to  techniques  available  for  integrated 
design  and  optimization  of  processes.  Many  of  these 
are  applicable  to 'process  operation  problems  as  well. 

A  process  optimization  study  of  an  existing 
processing  system  seeks  to  improve  the  operation  of  the 
system.  The  first  step  in  the  analysis  is  the 
definition  of  the  objective  criterion.  Most  often  the 
intention  is  to  maximize  profit  and  minimize  capital 
investment  while  meeting  all  restrictions  on  the 
process.  When  the  system  exists,  investment  value  is 
fixed  and  can  be  omitted  if  relative  values  are  used. 
Sometimes  technical  criteria  are  used;  normally  these 
can  be  reduced  to  some  form  of  economic  criteria. 

For  optimization  to  take  place,  the  objective 
criterion  must  be  expressed  as  a  function  of  the  controll¬ 
able  system  variables.  This  step  is  facilitated  by 
preparing  an  adequate  representation  of  the  system. 

The  overall  structure  of  the  system  can  be 
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represented  by  a  block  diagram  or  flowsheet.  Each  block 
or  process  unit  represents  a  portion  of  the  process  with 
one  or  more  specific  functions,  varying  in  scope  from  a 
distillation  tray  to  an  oil  refinery,  depending  on  the 
particular  optimization  problem.  The  system  consists  of 
a  set  of  process  units,  interconnected  by  process 
streams,  which  receives  input  streams  and  produces 
output  streams. 

To  evaluate  the  objective  function,  the  states 
of  the  input,  output  and  interlinking  streams,  and  the 
behavior  of  the  process  units,  must  be  defined;  the 
system  variables  must  be  specified.  Because  the 
variables  are  inter-related,  they  cannot  all  be 
specified  independently , and  a  model  of  the  behavior 
of  the  system,  a  definition  of  the  relationship  between 
system  variables,  is  required. 

The  behavior  of  each  process  unit  is  represented 
by  a  model.  It  can  be  either  analytical  or  empirical; 
it  can  be  derived  from  theoretical  considerations ,  or 
from  observed  behavior.  The  model  takes  the  form  of  a 
transformation  equation  which  expresses,  unambiguously, 
the  unit  output  variables  in  terms  of  unit  input 
variables  and  process  unit  characteristics.  When  the 


. 


system  exists,  most  process  unit  characteristics  are 
defined  though  a  few  might  remain  variable. 

The  system  model  is  composed  of  all  the  individ¬ 
ual  unit  models.  With  it,  the  dependent  system  variables 
can  be  determined  once  the  controllable,  or  decision 
variables  are  specified.  Because  the  transformation 
equations  are,  in  general,  difficult  to  invert,  the 
decision  variables  are  usually  chosen  from  the  set  of 
input  variables  and  variable  process  characteristics. 

A  processing  system  is  not  independent  of 
external  influences  which  can  either  specify  the  value 
or  limit  the  range  of  variation  of  the  system  variables. 
Restrictions  on  the  design  and  operation  of  a  processing 
system  arising  from  external  considerations  include 
feedstock  and  product  availability  and  quality,  minimum 
profit  and  maximum  investment  levels,  and  limits  on  the 
production,  composition,  and  disposal  of  waste  products. 
The  system  is  also  subject  to  restrictions  which  arise 
from  internal  considerations.  These  are  usually 
constraints  on  process  unit  design  and  operation  and 
include  unit  dimensions  and  capacity,  acceptable  ranges 
of  operating  conditions  such  as  flow  rates  and  tempera¬ 
tures,  and  mass  and  energy  conservation  requirements. 
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For  existing  systems,  these  constraints  restrict  the 
behavior  of  the  system  to  feasible  modes  of  operation. 

The  system  is  also  subject  to  constraints  arising  from 
the  system  modelling  procedure.  The  available  data  or 
the  form  of  the  model  used  can  restrict  the  validity  of 
the  model  to  a  limited  region.  These  restrictions  must 

t  t 

be  considered  in  the  optimization  study  to  ensure  useful 
results . 

Once  the  system  model  has  been  formulated,  and 
the  restrictions  on  system  variables  identified,  the 
objective  function  can  be  finalized.  The  objective 
criterion  is  broken  down  into  components  and  each 
component  is  expressed  in  terms  of  technical  data,  the 
system  variables,  available  from  the  system  model.  This 
step  can  be  rather  complex,  particularly  in  the  case  of 
the  economic  criterion  which  includes  capital  costs  and 
the  time  value  of  money.  For  existing  systems,  the 
economic  objective  function  is  simpler  to  formulate; 
only  incremental  costs  need  be  included. 

The  optimization  model  consists  of  an  objective 
function  expressed  in  terms  of  system  variables,  a  system 
model  which  defines  the  relationship  between  the  system 
variables,  and  a  set  of  restrictions  which  limits  the 
acceptable  range  of  those  variables.  Care  must  be  taken 
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throughout  the  development  of  the  model  to  ensure  that 
the  model  does  indeed  represent  the  system. 

Once  the  optimization  model  has  been  formulated, 
only  a  few  more  steps  prior  to  the  actual  optimization 
remain:  derivation  of  an  acceptable  solution  procedure, 

simplification  of  the  model  if  necessary,  and  verifica¬ 
tion  of  the  model. 

Optimization  cannot  proceed  unless  acceptable 
solutions  to  the  model  equations  can  be  found  with 
reasonable  ease.  When  obtaining  a  solution  is  inordinat¬ 
ely  difficult  or  time-consuming,  an  unwarranted  effort 
might  be  required  for  optimization.  If  no  acceptable 
solution  procedure  can  be  found,  the  optimization  model 
must  be  simplified  or  the  project  abandoned. 

Simplification  can  be  accomplished  in  several 
ways.  The  number  of  variables  in  the  problem  can  be 
reduced  by  treating  those  which  have  a  negligible  effect 
on  the  objective  function  value  as  fixed  constants.  In 
some  cases,  the  number  of  equations  can  be  reduced  by 
solving  the  problem  in  stages.  It  may  also  be  possible 
to  reformulate  the  model  and  reduce  the  problem  to  one 
of  the  special  cases  for  which  efficient  solution 
procedures  exist. 

Whatever  optimization  model  is  finally  adopted, 
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if  the  realism  of  the  model  is  not  preserved,  optimiz¬ 
ation  would  be  worthless.  Before  optimization  begins, 
the  optimization  model  should  be  verified  as  well  as 
is  possible  by  comparing  the  observed  or  expected 
behavior  of  the  system  with  the  behavior  predicted 
by  the  model. 

Given  a  suitable  optimization  model,  optimal 
operating  conditions  for  the  processing  system  can  be 
found  with  the  help  of  an  appropriate  optimization 
technique.  The  results  of  the  optimization  study  will 
not  only  indicate  optimal  operating  conditions  for  the 
processing  system,  but  also  provide  insight  into  any 
weakness  of  the  optimization  model.  If  necessary, 
revisions  can  be  made  and  optimization  repeated  until 
acceptable  results  are  obtained. 

Optimization  theory  has  been  most  effective 
for  the  design  and  operation  of  individual  components 
of  processing  systems.  The  optimization  model  for 
components  is  relatively  simple,  having  few  variables 
and  few  equations.  A  solution  is  usually  easily 
obtained,  and  several  effective  techniques  are  available 
for  optimization  (2) . 

Unfortunately,  optimization  of  large  processing 
systems  is  not  as  readily  accomplished.  Developing  a 
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system  model  from  a  detailed  examination  of  each  process 
unit  results  in  a  large,  often  nonlinear,  system  of 
equations  in  many  variables.  Computer  simulations  such 
as  PACER  (4) ,  are  typical.  Process  optimization  based 
on  such  a  model  is  complicated,  if  not  impossible. 

The  solution  of  a  large  nonlinear  programming  problem 
is  required;  no  generally  applicable  approach  exists. 

Most  of  the  available  techniques  for  optimization  of 
large  systems  (5)  are  based  on  decomposition  of  the 
problem  into  several  smaller  subproblems,  taking  advan¬ 
tage  of  the  structure  of  the  optimization  model.  Before 
one  of  these  methods  can  be  applied,  the  optimization 
model  must  have  the  appropriate  form;  modifications  might 
be  necessary.  Case  studies  illustrating  the  application 
of  two  decomposition  methods,  partition  programming  (6) 
and  Lasdon's  multilevel  technique  (7),  support  this 
conclusion:  considerable  computational  effort  is  required 
for  the  successful  optimization  of  a  large  processing 
system  using  a  detailed  model;  the  procedure  is  lengthy 
and  expensive,  even  with  the  aid  of  modern  computers. 

An  alternate  approach  is  to  develop  an  overall, 
or  macroscopic,  model  of  the  processing  system.  Two 
classes  of  system  variables  can  be  distinguished: 
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1)  the  strategic  variables,  which  are  directly 
related  to  overall  system  behavior  (system 
input  and  output  variables) ,  and  process  unit 
interaction,  and 

2)  the  tactical  variables,  which  pertain  to 
the  behavior  of  individual  process  units. 

The  detailed  system  model  discussed  previously  incorpor¬ 
ates  both  strategic  and  tactical  variables,  employing 
detailed  process  unit  models.  Overall  relationships 
are  emphasized  in  the  macroscopic  model  which  is 
concerned  primarily  with  strategic  system  variables, 
employing  simpler,  less  representative,  process  unit 
models.  Each  process  unit  is  treated  as  a  black  box, 
or  an  input-output  device.  Process  unit  outputs  are 
expressed  in  terms  of  inputs  via  conversion  relations 
whose  coefficients  represent,  quantitatively,  the 
existing  technology  of  the  unit.  The  conversion 
relations  can  be  very  simple,  even  linear,  as  long  as 
the  range  of  the  strategic  variables,  over  which  the 
model  is  valid,  is  specified.  Linear  macroscopic  models 
and  linear  programming  were  used  by  Newby  and  Deam  (8) 
in  their  studies  of  refinery  problems.  Their  suggestion 
has  considerable  industrial  support;  indeed,  most  petrol¬ 
eum  refineries  make  use  of  linear  models  for  optimization. 
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The  optimization  model  based  on  the  macroscopic 
system  model  would  include  an  objective  function 
expressed  in  terms  of  strategic  system  variables,  the 
restrictions  required  to  ensure  feasible  and  acceptable 
system  variable  values,  and  the  restrictions  on  system 
variables  required  to  preserve  model  validity. 
Optimization  based  on  such  a  model  could  be  speedily 
and  inexpensively  accomplished.  In  addition,  the  results 
of  the  study  could  be  used  to  identify  the  critical 
areas  of  the  process,  pointing  out  areas  where  further 
enrichment  is  needed,  and  to  provide  a  framework  for 
later  optimization  of  process  unit  operation. 

Throughout  the  foregoing  discussion,  the  tacit 
assumption  has  been  made  that  the  system  model  developed 
accurately  represents  the  behavior  of  the  processing 
system.  In  practice,  this  is  seldom  the  case.  There 
will  often  be  uncertainty  about  the  values  of  some  of 
the  system  model  parameters,  arising  from  unreliable 
and/or  incomplete  data  as  to  system  response.  The 
approximations  made  during  modelling  process  unit 
response  may  also  contribute  to  the  uncertainty. 

If  the  uncertainty  is  ignored,  the  operating  conditions 
accepted  as  best  on  the  basis  of  the  optimization  study 
may  be  far  from  optimal.  The  presence  and  magnitude  of 
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uncertainties  in  the  system  model  should  be  recognized 
and  taken  into  account  before  an  optimization  study  is 
considered  complete. 

Process  optimization  under  uncertainty  can  be 
tackled  by  "decision  analysis"  -  Howard's  (9)  term  for 
application  of  modern  decision  theory  to  problems  in 
decision-making  under  uncertainty.  The  decision 
analysis  approach  is  based  on  the  assumption  that  the 

A 

uncertain  parameters  can  be  treated  as  random  variables 
with  "known"  probability  distributions.  The  probability 
distributions  are  assigned  on  the  basis  of  available 
information,  both  subjective  and  objective,  and  can  be 
thought  of  as  a  measure  of  the  state  of  knowledge  about 
the  uncertain  parameters. 

Howard  (10)  divides  the  decision  analysis 
procedure  into  three  phases:  deterministic,  probabilistic 
and  informational.  A  decision  analysis  approach  to 
process  optimization  under  uncertainty  can  be  outlined 
within  his  broad  framework. 

The  deterministic  phase  begins  with  the  construc¬ 
tion  of  the  deterministic  optimization  model:  the 
establishment  of  relationships  describing  process 
behavior,  the  identification  of  decision  and  state 
variables  and  any  additional  restrictions  on  their  value. 
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and  the  formulation  of  an  objective  function.  Model 
parameters  are  assigned  nominal  values  and  ranges  reflec¬ 
ting  initial  information;  decision  variables  are  assigned 
nominal  values  on  the  basis  of  optimization  of  the 
deterministic  model.  A  sensitivity  analysis  is 
performed  to  identify  those  decision  variables  and  model 
parameters  which  have  a  critical  effect  on  objective 
function  value  in  the  neighborhood  of  the  optimal 
solution  to  the  deterministic  problem.  Those  variables 
and  parameters  showing  low  sensitivity  can  be  regarded 
as  known  for  the  remainder  of  the  analysis. 

The  probabilistic  phase  deals  with  the  effect 
of  uncertainty  in  critical  parameters  on  the  decision 
problem.  Each  parameter  identified  as  critical  by  the 
sensitivity  analysis  is  assigned  a  probability  distrib¬ 
ution  consistent  with  available  information.  If  some  of 
the  critical  parameters  are  not  independent,  their  joint 
probability  distributions  must  be  assigned.  For  the 
remainder  of  the  analysis,  the  critical  parameters  are 
treated  as  random  variables  characterized  by  their 
assigned  probability  distributions. 

The  decision  problem  is  now  stochastic.  In 
general,  the  risk  preference  of  the  decision-maker  must 
be  accounted  for.  Risk  preference  is  encoded  in  a 
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utility  function  which  serves  to  relate  monetary  value 
to  the  value  judgement,  or  utility,  of  the  decision 
maker.  Then,  the  optimal  solution  to  the  stochastic 
decision  problem  is  chosen  according  to  the  decision 
rule  first  proposed  by  von  Neumann  and  Morgenstern  (11) : 
maximize  the  expected  utility  of  the  objective  function. 
When  the  decision  maker  is  indifferent  to  risk, 
decisions  are  based  on  the  expected  value  of  the 
objective  function. 

The  informational  phase  is  concerned  with 
estimating  the  value  of  removing  the  uncertainty  in  the 
model  parameters.  The  estimator  used  is  the  expected 
cost  of  uncertainty  -  the  expected  value  of  the 
difference  between  the  value  of  the  strategy  chosen  as 
optimal  in  the  probabilistic  phase,  and  the  value  of 
the  optimal  strategy  when  all  parameter  values  are 
known  with  certainty.  It  provides  a  measure  of  the 
value  of  obtaining  better  information  about  model 
parameters  in  order  to  obtain  an  improved  optimization 
solution . 

The  approach  to  determining  optimal  operating 
conditions,  outlined  in  the  foregoing  pages,  is  intended 
to  be  generally  applicable  to  optimization  of  existing 
processing  systems,  particularly  in  the  first  optimiza- 


' 
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tion  stage  of  analysis.  It  is  discussed  in  detail  in 
the  following  pages  and  illustrated  by  a  case  study. 
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II.  THEORY 

In  general,  the  commercial  chemical  plant  is 
a  multicomponent,  multiphase  processing  system  composed 
of  interconnected  process  units,  each  of  which  performs 
one  or  more  operations  directed  towards  the  conversion 
of  input  streams  into  desired  products.  Given  an 
existing  plant,  it  is  desired  to  determine  a  set  of 
those  operating  conditions  directly  affecting  overall 
plant  operation  which  is,  in  some  sense,  optimal. 
Briefly,  the  procedure  suggested  here  is  as  follows: 

1)  Develop  a  simple  optimization  model, 
basing  it  on  a  macroscopic  model  of  the  processing 
system. 

2)  System  modelling  is  usually  hampered  by 
notoriously  inadequate  data,  resulting  in  uncertainty 
about  model  parameters.  Incorporate  the  critical 
uncertain  parameters  in  the  optimization  model  as 
random  variables. 

3)  The  resulting  programming  problem  is 
stochastic.  Find  an  acceptable  solution  and  hence 
specify  'optimal'  operating  conditions. 

4)  Estimate  the  value  of  obtaining  more  infor¬ 
mation  about  the  crucial  uncertain  parameters,  thus 
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enabling  rational  decision-making  about  model  improve¬ 
ment  in  the  hope  of  improving  system  operation. 

A.  The  System  Model 

The  transformation  equations  which  constitute 
the  system  model  are,  essentially,  the  material  balance 
equations  for  the  processing  system.  Nagiev  (12,13,14) 
suggested  basing  material  balance  calculations  on  a  lin 
ear  input-output  representation  of  process  behavior. 

The  result  was  a  simple  material  balance  formulation 
for  the  general  multicomponent,  multiunit  process  with 
arbitrary,  defined  recycling.  The  linear  system  of 
equations  he  derived  is  identical  to  the  system  of 
transformation  equations  in  the  economic  input-output 
models  introduced  by  Leontief  (15).  Nagiev's  work 
forms  the  basis  for  the  development  of  the  proposed 
model . 

The  model  is  restricted  to  representation  of 
steady-state  relationships  among  process  units  and 
between  the  processing  system  and  its  environment.  The 
system  variables  considered  to  be  important  to  overall 
operation  in  this  formulation  are  the  component  flow- 
rates  in  the  feed,  product  and  process  streams,  and 
the  inter-unit  recycle  fractions.  Each  process  unit  is 
treated  as  a  simple  black  box,  or  input-output  device, 


. ik: 


18 


which  alters  input  streams  linearly  to  produce  output 
streams . 


For  a  processing  system  consisting  of  n  distinct 
interconnected  process  units  with  m  chemical  components 
in  the  process  streams,  define: 

f(i,k)=  mass  feed  of  component  i  to  unit 

k  from  outside  the  system;  an  external 
feed  stream. 

g(i,k)=  total  mass  flow  of  component  i  to 

unit  k  from  process  units  and  external 
feed  streams;  the  charge  or  internal 
feed  to  unit  k. 

a(i,j,k)=  mass  fraction  of  the  total  flow  of 

component  i  to  unit  j  which,  after 
processing,  goes  to  unit  k;  a  Nagiev 

or  recovery  factor. 

p(i,k)=  the  flow  of  component  i  from 

unit  k  which  leaves  the  system  as  an 

external  product. 

d(i,k)=  the  mass  fraction  of  the  total 

flow  of  component  i  to  unit  k  which 
leaves  the  system  as  product;  a 
product  recovery  factor. 
h(i,k)=  artificial  feed  of  component  i  to 
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unit  k  introduced  to  handle  production 
and  disappearance  due  to  reaction. 
s(i,q,k)  =  fraction  of  the  mass  flow  of  component 
q  to  unit  k  which  appears  as  component 
i  in  unit  k  due  to  reaction;  a 
reaction  conversion  factor.  A  negative 
factor  indicates  disappearance. 

Where  there  is  no  reaction  in  unit  k,  a  material 
balance  taken  around  the  entrance  to  that  unit  yields, 
for  each  component  i, 

n 

g(i,k)  =  f(i,k)  +  £  a(i,j,k)  g(i,j)  (II-l) 

j  =  l 


Reaction  is  accounted  for  by  the  addition  of  an  artific¬ 
ial  feed  (or  vent)  stream  to  the  reaction  unit  to 
represent  production  and  disappearance  of  components 
due  to  reaction,  an  approach  suggested  by  Rosen  (16) . 

The  material  balance  equation  (II-l)  becomes 

g(i,k)  =  f(i,k)  +  £  a  (i ,  j  ,k)  f  g  (i ,  j  )  +  h  (i ,  j  )1 

j  =  l  L  J 


(H-2) 
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Similarly,  the  product  stream  flowrates  are  defined  by 


P (i,k) 


(H-3) 


Further,  the  artificial  feed,  h(i,k),  can  be  expressed 
in  terms  of  process  flowrates,  yielding 


m 


h(i,k)  =  E  s(i,q,k)  g(q,k) 

q=l 


(II-4 ) 


These  three  equations,  (II-2) ,  (II-3) ,  and  (II-4)  are 

the  basic  material  balance  equations  for  the  processing 
system.  The  systems  of  n  equations  which  result  from 
writing  each  equation  for  all  process  units  are,  in 
matrix-form: 


(H-5) 


.  a  (i ,  n ,  2 ) 


a (i,n, 1) 


a (i , 1  ,n)  a (i , 2 , n) 


.  a  (i,n,n) 


(II-6) 
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where 


D . 
— 1 


and 


d(i,l) 

d (i, 2) 

d  (i ,  n) 


m 

h.  =  l  S.  g  (II-7) 

-i  q=1  i/q 


where 


s  (i,q,l) 

s  (i,q,2) 


s  (i  ,q / n) 


In  the  preceeding  equations,  as  in  those  to 
follow,  the  notation  for  vectors  of  the  system  variables 
f(i,k),  g(i,k),  p(i,k)  and  h(i,k)  follows  the  convention: 
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g (if i) 
g  (i/2) 


g (i ,n) 


and 


Writing  the  material  balance  equations  for  all 
components  results  in: 


f  +  Afch 


where 


-m 


(II-8 ) 
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E  =  E[e  +  h] 

where 

D  = 


D. 

— 1 


—2 


D 

-m 


h  =  S_ 


S  = 


where 

2i,i 

— 1 , 2  • 

• 

.  S. 

— 1  ,m 

—2 , 1 

—2 , 2  * 

• 

•  S  9  m 

2  f  in 

S  i 
-m,  1 


S  9 
— m  /  2 


S 

-m,m 


Substituting  equation  (11-10)  in  equations  (II' 
(II-9)  yields 


t  t 

I  -  A  -  AS 


1  -  I. 


E  = 


D  +  D  S 


(II-9 ) 


(11-10) 


8 )  and 


(II-ll) 


a 


(11-12) 
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or,  if 

B  =  I  -  At  -  AfcS 


(11-13) 


and 

T  =  D  +  D  S  (11-14} 

equations  (11-11)  and  (11-12)  may  be  written 

B  £  =  f  (11-15) 

£  =  T  £  (11-16) 

Equations  (11-15)  and  (11-16)  are  general  material 
balance  equations  for  the  processing  system;  they 
define  the  relationships  between  the  component  flow 
rates,  f,  g,  and  p,  and  constitute  a  system  model. 

When  the  entries  in  the  matrices  A,  S  and  D  are  fixed, 
the  equations  are  linear  and  easily  solved  once  one 
of  the  system  flow  vectors  is  specified. 

Another  factor  which  is  important  to  overall 
system  behavior,  and  should  be  included  as  a  system 
variable, is  inter-unit  recycle.  Inter-unit  recycle 
can  be  represented  by  a  separate  process  unit  on  the 
process  flowsheet  -  a  simple  stream  splitter.  The 
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stream  splitter  is  a  unit  which  splits  an  input  stream 
into  two  output  streams  without  altering  composition? 
it  is  characterized  by  a  split  factor  (or  recycle 
fraction) .  In  the  system  model  presented  here,  split 
factors  appear  as  entries  in  the  matrices  A  and  D. 

When  they  are  variable,  the  model  is  nonlinear. 

The  fractions  a(i,j,k),  s(i,q,k)  and  d(i,k) 
are  model  parameters  which  represent  the  technology 
of  individual  process  units.  They  can  be  estimated, 
usually  from  data  on  system  operation,  in  several 
ways;  Nagiev  (14)  and  Vela  (17)  have  discussed  some 
of  these.  Whatever  procedure  is  used  to  arrive  at 
technology  parameter  values,  certain  restrictions, 
arising  from  the  parameter  definitions  and  conservation 
of  matter,  must  be  observed. 

1)  The  recovery  factors,  a(i,j,k)  and  d(i,j) 
are  restricted  by 

n 


d  (i,  j ) 

\  +  l  a  (i, j ,k)  <  1.0 

k=l 

(II-17) 

0.0  < 

d (i, j )  <  1.0 

(11-18) 

o 

• 

o 

1  A 

a  (i  ,  j  ,k)  <_  1 . 0 

(11-19) 

■ 
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2)  The  restrictions  on  the  reaction  conversion 
factors  s(i,q,j)  are  more  complex.  The  following 
restrictions  apply  in  all  cases 

n 

E  s(i,q,j)  <_  0.0  (11-20) 

i=l 

s  (i,i, j )  <_  0.0  (H-21) 

If  the  amount  of  component  i  converted  is  expressed 
only  in  terms  of  the  amount  of  component  i  present 
in  the  input  charge  stream,  then 

s(i,q,j)  ^  0.0  ,  i^q  (11-22) 

and  |s(i,q,j) |  £  1.0  (11-23) 

When  it  is  desirable  to  express  conversion  of  component 
i  in  terms  of  the  input  mass  of  another  component, 
say  qb ,  then 

s(i,q^,j)  <  0.0  for  some  qb=i  (11-24) 

and  the  following  constraint  must  be  added  explicity 
to  the  system  model. 


g  (i/ j  ) 


s(i,qb,j)  g(qb,j) 


(11-25) 
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Because  this  type  of  constraint  complicates  the 
model,  it  is  preferable  to  restrict  reaction  conversion 
factors  by  equation  (11-22)  for  all  components  in  all 
reaction  units. 


B.  Restrictions  on  System  Variables 

The  range  of  variation  of  the  system  variables 
is  not  unlimited.  Constraints  arise  from  external 
requirements  and  limitations,  the  characteristics  of 
process  equipment,  and  the  system  model.  Included  in 
these  restrictions  are  factors  such  as:  feedstock 
availability  and  composition,  process  unit  capacities 
and  requirements,  product  demand  and  specifications, 
and  model  validity  limits.  To  preserve  the  linearity 
of  the  model,  each  constraint  is  expressed  as  a  require¬ 
ment  on  a  linear  function  of  the  system  flow  variables. 
The  set  of  constraints  so  defined  can  be  written 


R^f  +  R  g  +  R  p  =  rhs 

-f-  -^g—  - 


(11-26) 


where  each  constraint  takes  on  only  one  of  the  signs 
from  the  set  {<,  =,>}. 


■ .  ;  : 
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The  model  formulation  also  implies  certain 
restrictions  which  must  be  included  explicitly.  The 
variable  split  factors  are  required  to  be  positive 
fractions.  If  there  are  ns  variable  split  factors, 
this  restriction  can  be  written 

0.0  £  sf k  £  1.0  k=l ,  2 , .  .  .  ns  (11-27) 

or,  in  vector  form 

0.0  <  sf  <  1.0  (11-28) 

The  system  flow  variables  must  be  positive,  that  is 

t_,  £,  >_  0.0  (11-29) 

C .  The  Objective  Function 

In  the  overall  optimization  of  processing 
system  operation,  the  most  common  objective  criterion 
is  the  minimization  of  net  costs  (maximization  of  net 
profit) .  Taking  care  to  preserve  linearity,  the 
objective  criterion  can  be  expressed  in  terms  of  system 
flow  variables  in  the  following  form. 


. 

c  :  r  a  ; 
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minimize  z 


tr  ,  t  t 

=  c£f  +  c  g  -  c  p 
— f—  — g-2-  -p*- 


(11-30) 


The  coefficients  c~,  c  and  c  are  cost  coefficients 

-f  -g  “P 

corresponding  to  feedstock  costs,  operating  costs,  and 
product  values  respectively.  Because  fixed  costs  do 
not  affect  the  operation  of  an  existing  process,  these 
are  not  included  in  the  cost  function. 

D.  The  Deterministic  Decision 


The  deterministic  optimization  model  consists 


of  the  basic  system  model,  the  additional  constraints 
defining  restrictions  on  system  variables,  and  the 
objective  function.  All  model  parameters  are  assumed 
to  be  known.  If  the  decision  variables  are  taken  to 
be  sf  and  one  of  the  system  flow  vectors,  usually  f, 
the  deterministic  optimization  problem  is  the  following 
nonlinear  programming  problem. 

Find  f ,  sf_ 
so  as  to 


minimize 


t.p  ,  t  t 

z  =  c-f  +  c  g  -  c  p 
— f—  — g-2-  — p*- 


(11-30) 


subject  to: 
B  £  =  f 


(11-15) 


' 


30 


p  =  T  g 


(11-16) 


< 


rhs 


(11-26) 


> 


0.0  <  sf  <  1.0 


(11-28) 


f.r  £,  2.,  >_  0.0 


(11-29) 


The  above  problem  can  be  considerably  reduced  in  size 
by  elimination  of  the  dependent  variables  from  the 
objective  function  and  process  constraints.  Using 
equations  (11-15)  and  (11-16)  ,  c[  and  £  are  expressed 
in  terms  of  f  and  the  technology  coefficient  matrices, 
B  and  T. 


(H-31) 


e  =  1  a 


(11-32) 


Using  these  relations  to  eliminate  £  and  g,  the 
reduced  problem  can  be  stated. 
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find  f,  sf 


so  as  to 
minimize  z  = 


t  .  t  -1 
c,  +  c  B 
-f  -g- 


cfcT  B  1 

_p - 


subject  to 


[ 


r£+  r  b"1  +  r  t  b"1 
-f  -g-  -p - 


f  =  rhs 


0.0  <  sf  <  1.0 


f  >  0.0 


(11-33) 

(11-34) 

(11-28) 

(11-29) 


When  sf_  is  also  fixed,  the  optimization  problem  is 
linear  and  can  be  efficiently  solved  by  using  a  standard 
linear  programming  algorithm  in  conjunction  with 
the  reduced  form  of  the  deterministic  decision  problem. 

The  general  nonlinear  programming  problem  can 
be  solved  with  the  help  of  separable  programming  (18) . 
The  nonlinear  terms  in  the  system  model  are  first 
converted  to  separable  form  by  transformation  of 
variables  and  then  approximated  by  piecewise  linear 


:  '  •'  i  /<  1  3  U 
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functions.  The  original,  unreduced  form  of  the  problem 
must  be  used,  and  each  linear  approximation  requires 
the  addition  of  several  new  variables  and  constraints 
to  the  problem. 


When  there  are  few  variable  split  factors  an 


alternate  approach  is  easier  to  formulate  and  could 
be  more  efficient.  The  suggestion  is  to  use  a  search 
technique  to  find  optimal  values  for  the  split  factors, 
employing  linear  programming  and  the  reduced  form  of 
the  problem  to  solve  for  optimal  flow  rates  at  each 
step.  The  nonlinear  programming  problem  then  has  the 
following  form. 

Find  sf_ 

so  as  to 


minimize  z 


(11-33) 


subject  to 


0.0  <  sf  <  1.0 


(11-28) 


' 
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f 


f 


chosen  so  as  to 


minimize  z 


c^T  B  1  f  (11-33) 
— p—  —  — s 


subject  to 


< 


R_  +  RB1  +  RTB1f 
— f  — g—  — p - — s 


rhs  (11-34) 


> 


f  >  0.0 

— s  — 


(11-29 ) 


The  search  technique  used  must  be  one  which  does  not 
require  explicit  gradient  information.  The  pattern 
search  method  developed  by  Hooke  and  Jeeves  (19)  appears 
to  be  suitable.  It  is  easily  programmed  (20)  and  is 
reliable  as  a  general  technique  (21) . 


Neither  nonlinear  optimization  technique 


guarantees  location  of  global  optima;  care  must  be 
taken  to  avoid  stopping  at  a  local  optimum. 

E .  Sensitivity  Analysis 


1.  Model  Parameters 


A  fundamental  assumption  in  the  formulation 


of  the  deterministic  optimization  model  was  that  all 
system  model  parameters  were  known.  In  practice , 


(££-II)  }  X  3  -  "e  o  +  do 
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because  of  inadequate  data,  they  are  not  known  with 
certainty.  When  an  uncertain  parameter  is  crucial  to 
the  model's  representation  of  process  behavior,  it 
may  have  considerable  effect  on  the  optimal  solution 
and  objective  function  value.  A  sensitivity  analysis 
is  performed  to  determine  which  of  the  parameters 
are  critical. 

Associated  with  each  parameter  is  a  nominal 
value,  the  value  assigned  for  the  deterministic  model, 
and  an  interval,  the  assumed  range  of  the  parameter, 
which  reflect  initial  information  about  the  parameter. 
If  the  uncertain  parameter  is  thought  of  as  being  a 
random  variable,  the  nominal  value  might  correspond 
to  the  mean  or  the  mode  of  the  distribution,  and  the 
range  might  correspond  to  the  10  and  90  percent  points 
on  the  cumulative  distribution  function.  A  sensitivity 
analysis  consists  of  varying  each  uncertain  parameter 
over  its  range,  or  a  fixed  portion  of  its  range,  and 
observing  the  resulting  change  in  objective  function 
value  relative  to  some  reference  point.  If  some 
model  parameters  are  not  independently  defined,  their 
joint  sensitivity  must  be  examined. 

Demski  (22)  has  discussed  some  of  the 
theoretical  limitations  of  sensitivity  analysis  which 
should  be  kept  under  consideration. 


'>  ■ 
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1)  Parameter  deviations  can  interact;  the 
sensitivity  analysis  assumes  they  do  not.  A  joint 
sensitivity  analysis  could  be  used  to  help  take  this 
into  account,  but  such  an  analysis  might  require  an 
inordinate  effort. 

2)  A  parameter  is  identified  as  sensitive  only 
with  reference  to  the  existing  model  structure  and 
parameter  estimates,  for  a  particular  decision.  The 
sensitive  parameter  set  may  not  be  stable  for 
parameter  and  structural  deviations. 

3)  In  large  models,  because  the  number  of 
parameters  which  can  reasonably  be  examined  is  limited, 
a  complete  analysis  is  not  possible. 

4)  The  results  are  model  dependent;  they  are 
applicable  to  the  real  system  only  in  so  far  as  the 
model  accurately  represents  the  system. 

If  these  limitations  are  considered  during  the  in¬ 
terpretation  of  the  results,  the  following  simple  procedure 
is  adequate  for  sensitizing  the  macroscopic  optimization 
model.  Each  uncertain  parameter  is  perturbed,  in  propor¬ 
tion  to  its  range,  about  its  nominal  value  and  the  effect 
on  the  objective  function  value  observed.  The  reference 


decision  is  the  solution  to  the  deterministic  problem 
defined  by  using  nominal  values  for  model  parameters. 

In  the  macroscopic  system  model  presented  here  very 
few  of  the  model  parameters  can  be  varied  independently 
Equations  (11-17)  and  (11-20)  define  joint  relationship 
which  must  be  taken  into  account  in  the  perturbations. 
In  consequence,  when  a  parameter  is  identified  as 
sensitive,  there  may  actually  be  other  parameters 
associated  with  it  which  contribute  to  its  critical 
nature.  The  critical  parameters  identified  by  this 
sensitivity  analysis  are  those  sensitive  parameters  or 
groups  of  parameters  which,  when  perturbed,  result  in 
an  objective  function  value  change  greater  than  some 
stipulated  acceptable  variation. 

2.  Split  Factors 

Each  variable  split  factor  adds  to  the 
computational  effort  required  to  solve  the  optimization 
problem.  It  would  be  advantageous  to  treat  them  as 
fixed  constants  at  the  level  found  to  be  optimal  for 
the  deterministic  optimization  model.  This  step  is 
justified  if  it  can  be  shown  that  such  a  move  would  not 
appreciably  affect  the  optimal  solution  and  objective 


function  value. 
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A  sensitivity  analysis  aimed  at  determining 
which,  if  any,  split  factors  are  not  critical  is 
accomplished  in  two  steps. 

1)  Perturb  each  split  factor  and  observe  the 
effect  on  objective  function  value,  as  was  done  for 
model  parameters.  Those  split  factors  exhibiting 
negligible  effect  on  objective  function  value  can  be 
treated  as  fixed  constants. 

2)  The  remaining  split  factors  are  critical  if 
their  ranges  are  those  assumed  during  step  1.  A  simple 
check  can  be  made.  Each  model  parameter  or  group  of 
parameters  found  to  be  critical  is  perturbed  as  in 

the  previous  sensitivity  analysis,  and  the  optimal 
solution  to  the  resulting  nonlinear  programming 
problem  found.  If  a  split  factor  shows  no  appreciable 
variation  in  its  optimal  value,  it  may  be  treated  as 
a  fixed  constant. 

F .  Encoding  Uncertainty 

Each  of  the  model  parameters  identified  as 
critical  is  assigned  a  probability  distribution  in  accord 
with  the  state  of  knowledge  about  the  parameter.  If  no 
more  conclusive  information  is  available,  opinion 
analysis  can  be  used  to  compile  appropriate  probability 
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distributions  (22).  Of  course,  the  distributions 
assigned  should  be  consistent  with  the  range  and  nominal 
value  information  assumed  earlier;  if  not,  the  sensitivity 
of  the  affected  parameters  should  be  re-examined.  The 
critical  parameters  are  treated  as  random  variables 
characterized  by  their  assigned  distributions  for  the 
remainder  of  the  analysis. 

Because  there  is  uncertainty  about  some  model 
parameters,  the  decision  problem  is  stochastic,  and 
there  is  risk  associated  with  the  choice  of  an  operating 
strategy.  However,  management  usually  acts  as  if  it  were 
indifferent  to  risk  at  the  low  levels  of  investment 
normally  required  for  process  operation.  The  high  risk 
capital  investment  has  already  been  made;  once  the 
plant  is  in  existence,  the  primary  concern  is  in 
maximizing  profit.  Consequently,  the  profit  for  the 
processing  system  is  an  acceptable  estimate  of 
management's  utility  and  the  optimal  strategy  can  be 
selected  on  the  basis  of  maximizing  the  expected  profit, 
or  minimizing  the  expected  cost. 

G.  The  Stochastic  Decision 

The  optimality  criterion  for  the  stochastic 
decision  problem  is  that  the  expected  value  of  the 
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cost  function  be  minimized;  that  is 

minimize  u  =  ct  n,  +  c^  u  -  cfcy  (11-35) 

M  z  — f  ilf  — g  _g  -p_p 

where  y  denotes  the  expected  value  of  z  and  the 
z 

vectors  y^,  y^  and  y^  are  the  expected  values  of  the 
flow  rate  vectors  f_,  £  and  P 

Because  one  of  the  flow  rate  vectors,  say  f ,  will  be 
a  decision  vector  with  a  specified  value, 

yf  =  f  (11-36) 

and  hence,  the  optimality  criterion  can  be  rewritten  as 

minimize  y  =  c^f  +  cfc  y  -  y  (11-37) 

z  -f-  -g  -  g  -p  -P 


Given  the  optimality  criterion,  the  stochastic  decision 
problem  can  be  stated  formally  as 
find  f,  sf 


so  as  to 
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minimize 

= 

c^f  + 

c^y  -  cfcy 

-g-g  -p-p 

(11-37) 

subject 

to 

B  £  = 

=  f 

(H-15) 

£  =  T 

£ 

< 

(11-16) 

£ff  + 

R  g  + 

-g- 

R  p 
-P- 

=  rhs 

> 

(11-26) 

o 

• 

o 

1  a 

sf 

<  1.0 

(11-28) 

f /  g. 

E  1 

0.0 

(11-39) 

The  problem  is  stochastic  because  some  of  the  entries  in 
the  matrices  B  and  T  are  random  variables.  There  are 
few  methods  available  for  handling  stochastic 
optimization  subject  to  inequality  constraints,  even 
for  linear  problems  (24) .  The  difficulty  lies  in  the 
selection  of  an  optimal  strategy  which  will  remain 
feasible  for  all  possible  constraint  sets. 

The  common  industrial  approach,  when  there  is 
uncertainty  about  system  performance,  is  to  provide 
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slack  (or  "fat")  so  that  the  objectives  for  the  system 
can  be  met  in  spite  of  unexpected  system  behavior  (25) . 

In  terms  of  the  decision  problem,  the  "fat"  ensures  that 
a  strategy  which  satisfies  the  deterministic  model 
constraints  will  be  feasible  for  the  process  whatever 
the  actual  values  of  the  uncertain  parameters. 

Chance-constrained  programming,  developed  by 
Charnes  and  Cooper  (26)  ,  is  a  generalized  approach  to 
stochastic  programming  which  permits  each  inequality 
constraint  to  be  violated  with  some  preset  probability. 

The  chance-constrained  formulation  admits  no  general 
solution  procedure  for  problems  with  more  than  one 
random  variable  per  constraint,  even  when  those 
constraints  are  linear  (27) . 

Another  approach  is  to  assign  costs  for  constraint 
violations  and  minimize  the  process  cost  function  plus 
constraint  violation  costs.  When  the  uncertainties  are 
in  the  constraint  coefficients,  this  formulation  is 
difficult  to  solve  (again,  a  solution  can  be  found 
only  for  special  cases  ) ,  and  the  optimal  solution 
found  is  dependent  on  the  penalties  assigned  for 
constraint  violations  (18) . 

In  the  absence  of  an  acceptable  analytical 
technique,  when  the  random  elements  are  important, 
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either  the  unmanageable  aspects  of  the  constraints  are 
ignored,  or  analytical  techniques  are  abandoned,  and 
replaced  by  simulation  of  alternatives.  Neither 
approach  guarantees  an  optimal  solution  to  the  stochastic 
decision  problem,  but  information  about  the  effect  of 
uncertainty  on  the  choice  of  strategy  is  generated, 
facilitating  the  selection  of  an  operating  strategy 
which  could  be  better,  and  certainly  is  not  worse, 
than  the  strategy  selected  on  the  basis  of  a  deterministic 
analysis  alone. 

The  simulation  of  alternatives  may  be  impractical 
for  the  stochastic  process  optimization  problems  because 
there  are  infinitely  many  alternatives,  and,  even  if 
only  a  few  are  selected,  simulation  would  require  an 
unwarranted  amount  of  computational  effort. 

The  best  available  approach  is  to  arrive  at 
some  compromise  optimization  model  which  is  amenable 
to  analysis  but  retains  as  much  of  the  uncertain 
character  of  the  problem  as  possible.  If  the  stochastic 
decision  problem  is  expressed  in  the  reduced  form 
(i.e.  with  dependent  variables  eliminated  from  the 
objective  function) ,  the  repercussions  of  uncertainty 
are  more  obvious.  Because  the  transformation  equations 
(11-15)  and  (11-16)  express  f  and  £  as  functions  of  cj. 


I  .  .  •  .  7,: 


43 


it  is  convenient  to  treat  g  as  a  decision  vector  rather 
than  f_,  and 

y  =  g  (11-38) 

y 

By  taking  expected  values  on  both  sides  of  (11-15)  and 
(11-16)  , 


y  =  E(B  g)  =  E  (B)  g 


(11-39) 


y  =  E (T  g)  =  E (T)  g  (11-40) 

P 

where  the  notation  E(  .  )  denotes  an  expected  value 
then,  eliminating  yf ,  y_^,  f  and  p  using  (11-39)  ,  (11-40)  , 
(11-15)  and  (11-16)  ,  the  reduced  stochastic  programming 
problem  can  be  written 


find  sf_ 
so  as  to 

g  (ii-4i) 

subject  to 

< 

2,  =  rhs  (11-42) 

> 


r£b  +  r  +  r  t 
f g 


minimize  y  = 

z 


C^E(B)  +  c"1  -  CtE(T) 

-f  -  -g  -p  - 
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0.0  <  sf  <  1.0 


(11-28) 


cj_  0.0 


(11-29) 


Because  B  and  T  have  some  random  elements  it  is  difficult 
to  satisfy  the  contraints  (11-42) ,  particularly  the 
equality  constraints.  These  constraints  cannot  be 
ignored  completely;  without  them  g  is  unbounded  and  the 
solution  is  trivial.  One  form  of  the  bounds  defined  by 
the  constraints  (11-42)  can  be  retained  if  the  decision 
maker  is  willing  to  modify  his  restrictions  so  that  only 
the  expected  values  of  the  system  flow  variables  need 
satisfy  those  constraints.  With  this  modification, 
the  stochastic  decision  problem  becomes 

find  £,  sf_ 

so  as  to 


minimize 


VI,  =  c^E(B)+  c*  -  c*E(T)g 

z  — f  —  — g  — p  —  — 


(11-48) 


subject  to 


< 


R^E  (B)  +  R  +  R  E  (T)  g 
-f  -  — g  — P  —  ~ 


rhs 


(11-43) 


> 
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0.0  <  sf  <  1.0  (11-28) 

g  ^  0.0  (11-29) 

Recalling  that  the  expected  value  of  a  matrix  is  the 
matrix  of  the  expected  values  of  its  elements,  it  can 
be  seen  that  the  modified  stochastic  decision  problem 
is  identical  in  form  to  the  deterministic  decision 
problem.  If  the  nominal  values  assigned  uncertain 
parameters  correspond  to  the  expected  values  of  the 
uncertain  parameters,  the  decision  problems  are  identical 
and  a  solution  has  already  been  obtained.  If  not,  (for 
example,  when  the  nominal  values  correspond  to  modes  of 
parameters) ,  the  problem  is  easily  solved  by  methods 
already  discussed  for  the  deterministic  decision  problem. 

H.  The  "Optimal"  Policy 

Though  the  stochastic  decision  problem  has 
proved  to  be  intractable,  an  acceptable  solution  -  the 
optimal  solution  to  the  modified  problem  just  discussed  - 
can  be  found.  The  next  step  is  to  interpret  that  solution 
and  establish  an  operating  strategy  for  the  processing 
system. 
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The  standard  procedure  would  be  to  fix  the 
controllable  system  variables  at  the  levels  indicated 
by  the  optimal  solution  to  the  modified  stochastic 
decision  problem.  Such  a  strategy,  S'  ,  could  violate 
the  process  restrictions  (11-26)  if  the  model 
parameters  had  other  than  their  expected  values.  In 
that  case,  the  strategy  would  not  be  theoretically 
feasible  though,  in  practice,  it  might  well  be  acceptable 
because  of  "over-design"  or  "fat"  in  the  process  units. 

An  alternate  procedure  is  to  formulate  an 
operating  strategy  S  in  terms  of  a  set  of  simple 
guidelines  for  step-by-step  determination  of  decision 
variables  once  process  parameters  are  known.  The 
guidelines  attempt  to  reproduce  the  essential  character¬ 
istics  of  the  optimal  solution  to  the  modified  problem 
while  avoiding  a  rigid  specification  of  decision 

variables.  Flow  rates  which  are  at  their  bounds  in 

* 

the  optimal  solution  should  be  kept  there  if  possible. 
Split  factors  should  have  their  optimal  solution  value. 

In  practice,  the  guidelines  are  easily  implemented  and 
the  resulting  operating  conditions  do  not  violate  process 
restrictions . 

The  strategy  S  has  several  advantages  over  a 

s 

simple  specification  of  system  variables.  If  the 
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guidelines  are  properly  defined,  the  strategy  is  always 
feasible,  though  not  necessarily  optimal.  Because  it 
allows  for  variation  in  system  parameters,  it  is  more 
versatile,  and  intuitively  more  appropriate  for  system 
operation  in  the  face  of  uncertainty.  Though  it  has 
not  been  shown  here  it  should  be  possible  to  approximate 
more  closely  the  optimal  strategy  for  the  stochastic 
problem,  given  skillfully  defined  guidelines.  For  these 
reasons,  the  strategy  is  a  more  satisfactory  strategy 
for  system  operation  in  the  face  of  uncertainty  and,  for 
the  purposes  of  the  limited  analysis  being  considered 
here,  is  the  optimal  policy. 

J .  Cost  of  Uncertainty 

The  preceding  analysis  yielded  a  strategy  S  , 

s 

not  necessarily  optimal,  for  the  operation  of  the 

processing  system  in  the  face  of  uncertainty.  The 

objective  function  value  z  associated  with  the  strategy 

s 

S  is  a  random  variable,  dependent  on  the  uncertain 

s 

value  of  critical  system  parameters.  For  a  given  set 
of  critical  system  parameters,  the  lower  limit  on  z 

s 

is  z  ,  the  value  of  the  objective  function  associated 
c 

with  the  optimal  operating  strategy  S  for  the  processing 
system  when  there  is  no  uncertainty.  S  and  z  are  just 
the  optimal  operating  strategy  and  the  minimum  of 
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the  objective  function  value  for  the  deterministic 

decision  problem  when  the  model  parameters  are  known 

with  certainty.  Like  z  ,  z  is  a  random  variable. 

s  c 

The  purpose  of  the  present  analysis  is  to 
determine  the  value  of  obtaining  complete  information 
about  the  critical  parameters  -  the  maximum  value  of 
improving  the  strategy  for  system  operation.  This 
value,  the  cost  of  uncertainty,  is  the  difference  z 

s 

z  ,  a  random  variable;  until  the  values  of  the  critical 
c 

parameters  are  known  it  cannot  be  computed.  Without 
additional  information,  the  best  indication  of  the 
value  of  complete  information  is  the  expected  cost  of 
uncertainty  ,  defined  by 


E  (  z  -  z  ) 
s  c 


=  y 

zs 


y 

zc 


(11-44) 


where  y  and  y  are  expected  values 

Z  S  Z  C 


of  z  and  z  respectively, 
s  o 

Neither  parameter  can  be  calculated  directly.  However, 
Monte  Carlo  simulation  (28,  29)  can  be  used  to  obtain 
estimates.  The  general  procedure  is  to  sample 
repetitively  from  the  distributions  of  the  critical 
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parameters,  using  a  random  number  generator  to  generate 

random  sets  of  parameters.  For  each  set,  z  and  z  are 

s  c 

calculated.  The  arithmetic  means  of  the  resulting 

random  samples  of  z  and  z  are  the  statistics  used  to 

s  c 

estimate  y  and  y  .  If  N  samples  were  taken,  the 
z  s  z  c 

mean  values. 


z  and  z  are  given  by 
s  c 


1 

N  i=l 


z 

s 


u> 


z  = 
s 


1 

N 


N 

L 

i=l 


z  {i} 
c 


and  M(z  -  z  )  =  z  -  z 
s  c  s  c 


(11-45) 


(11-46) 


(11-47) 


where  the  notation  M(  .  )  indicates  the 

arithmetic  mean  of  the  contents  of  the  brackets. 

When  using  Monte  Carlo  methods  for  comparative 

simulation,  Hammersley  and  Handscomb  (29)  suggested  that 

the  use  of  the  same  random  numbers  in  making  two 

unbiased  estimates,  (e.g.  z  and  z  )  results  in  greater 

s  c 

precision  for  the  estimated  difference. 
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The  number  of  samples,  N  ,  is  chosen  so  that 
the  variance  of  the  sample  mean  falls  within  specified 
limits,  enabling  a  control  on  the  accuracy  of  the 
estimate.  Details  of  the  calculation  appear  in 
Appendix  A,  and  are  based  on  the  work  of  Shreider  (28) , 
and  Hadley  (30) . 
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III  .  AN  APPLICATION 
POLYMER  CORPORATION'S  BUTADIENE  AREA 


A.  The  Process 

The  approach  to  process  optimization  presented 
in  the  preceding  chapter  has  been  used  in  a  study  of  a 
butadiene  process  similar  to  that  found  in  Polymer 
Corporation's  Butadiene  Area.  Typical  data  on  costs 
and  process  characteristics,  supplied  by  Polymer 
Corporation,  have  been  modified  to  preserve  confident¬ 
iality  but  remain  representative  of  butadiene  plant 
operation  in  the  early  1960's. 

A  flowchart  of  the  butadiene  process  studied 
here  appears  in  figure  1;  the  symbols  used  are 
explained  in  table  1.  The  process  is  relatively 
complicated,  consisting  of  19  interconnected  units,  and 
involving  4  principle  components  in  the  process  stream: 
normal  butylene,  isobutylene,  butane  and  butadiene. 
Units  1  to  10  are  true  process  units  while  units  11  to 
19  are  simple  stream  splitters.  There  are  7  external 
feed  streams,  pr(i,l)  to  pr(i,6)  and  fx(8)  to  fx(ll). 

The  process  splits  naturally  into  two  sections, 
each  producing  one  of  the  two  main  products  of  the 
butadiene  area  -  butadiene  and  butyl  rubber .  Units 
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FIGURE  1  BUTADIENE  AREA 
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TABLE  I 

Explanation  of  Symbols  Used  in  Figure  1 

Units 


Unit  No. 

Symbol 

Function 

1 

IPS 

Isobutylene  Plant  Separation 

2 

BC 

Butylene 

Concentration 

3 

BDR 

Butadiene 

Dehydro  Reactor 

4 

BDF 

Butadiene 

Dehydro  Fractionation 

5 

BE1 

Butadiene 

Extraction  Unit  1 

6 

BE  2 

Butadiene 

Extraction  Unit  2 

7 

BE2RR 

BE 2  Rerun 

8 

IPSRC 

IPS  Reconcentration 

9 

BUTRR 

Butyl  Rerun 

10 

BUTYL 

Butyl  Plant 

Feed 

Streams 

Symbol  Content 

fx(l)  Mixed  butylenes  and  butane 

fx(2)  Mixed  concentrated  n-butylenes 

fx(3)  Purchased  dilute  butadiene , n-butylene 

fx(4)  Copolymer  recycle  -  cone,  butadiene 

fx(5)  Copolymer  recycle  -  cone,  butadiene 

fx(6)  Purchased  dilute  butadiene,  butylenes 

fx(7)  Purchased  concentrated  butadiene 
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TABLE  1  cont 1 d 

Product  Streams 

Symbol 

Content 

pr (i , 1) 

Concentrated  butane 

pr (i, 2) 

Light,  heavy  reaction  products 

pr  (i  ,  3 ) 

Concentrated  butadiene 

pr  (i , 4 ) 

Concentrated  butadiene 

pr (i , 5) 

Concentrated  i-butylene 

pr (i, 6) 

Butyl  rubber 

fx(8) 

Straight  run  i-butylene  from  IPSRC 

fx(9) 

Rerun  i-butylene  from  BUTRR 

fx(10) 

Bottoms  i-butylene  from  BUTRR 

fx(ll) 

Overhead  i-butylene  from  BUTYL 

. 

. 
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2-7  form  the  butadiene  section;  units  8-10  form 
the  butyl  rubber  section.  Unit  1  splits  the  main 
process  feed  into  the  feed  streams  appropriate  to 
each  section.  The  charge  to  unit  1,  fx(l)  plus  recycle, 
is  predominantly  n-butylene,  butane  and  i-butylene. 

Most  of  the  i-butylene  is  removed  for  butyl  rubber 
production  while  the  remaining  stream,  rich  in 
n-butylene,  goes  to  the  butadiene  section. 

The  first  unit  in  the  butadiene  section, 
unit  2,  concentrates  the  n-butylene  stream  by  removing 
most  of  the  butane  as  product  pr(i,l).  The  concentrated 
n-butylene  stream  is  then  fed  to  unit  3  with  the 
addition  of  a  concentrated  n-butylene  feed  stream, 
fx(2),  and  process  recycle.  There  the  butylene  is 
dehydrogenated  by  catalytic  cracking  to  produce 
butadiene.  Unit  4  removes  the  light  and  heavy 
products  of  the  reaction  by  fractionation  as  product 
pr(i,2).  Butadiene  and  n-butylene  may  be  added  prior 
to  unit  4  from  feed  streams  fx(3)  and  fx(4). 

The  process  stream,  now  composed  mainly  of 
butadiene  and  n-butylene,  is  split  at  unit  11  and 
goes  to  either  unit  5  or  units  6  and  7  for 
butadiene  extraction.  There  is  the  option  of  adding 
concentrated  butadiene,  fx(5),  at  unit  5;  dilute 
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butadiene,  fx(6),  at  unit  6;  and  concentrated 
butadiene,  fx(7) ,  at  unit  7.  Unit  5  removes 
concentrated  butadiene  as  product  pr(i,3),  with  the 
remaining  butylene  rich  stream  being  recycled  to  units 
1,2,  or  3  via  stream  splitters  12  and  13.  Units  6  and 
7  successively  concentrate  the  process  stream, 
producing  concentrated  butadiene  as  pr(i,4)  from 
unit  7,  and  recycling  n-butylene  to  units  1  or  3  via 
stream  splitters  14  and  15. 

In  practice,  the  process  stream  to  the  butyl 
rubber  section  is  almost  pure  i-butylene.  Unit  8 
concentrates  the  i-butylene  feed  from  unit  1,  producing 
product  pr(i,5).  Unit  9  further  prepares  the  process 
stream  for  processing  in  unit  10,  recycling  a  portion 
of  the  stream  to  unit  1.  Unit  10  polymerizes  the 
isobutylene,  producing  butyl  rubber  as  product  pr(i,6) 
and  recycling  the  remainder  of  the  process  stream  to 
unit  1.  Isobutylene  may  be  removed  from  the  process 
stream  for  in-plant  use  via  stream  splitters  16,  18 
and  19  as  products  fx(8),  fx(10)  and  fx(ll),  or  for 
sale  via  stream  splitter  17  as  product  fx(9). 
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B.  The  Optimization  Model 

1 .  Further  Development 

The  matrix  equations  which  constitute  the 
optimization  model  are  the  system  model  transformation 
equations : 


B  g  =  f 


(11-15) 


£  =  T  g 


(11-16) 


the  restrictions: 


< 


Rj-f  +  R  g  +  R  p 
-f-  -g-  -p- 


rhs 


(11-26) 


> 


0.0  <  sf  <  1.0 


(11-28) 


f ,  p ,  g  >  0.0 


(11-29) 


and  the  objective  function: 


t,.  ,  t  t 

minimize  z  =  c_f  +  c  g  -  c  p 

-f-  -g2-  -p~ 


(11-30) 


The  cost  function  does  not  include  fixed  costs 
since  these  do  not  affect  a  decision  on  process 
operating  conditions. 


. 


f>x  ra  r  tm 
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For  this  process,  the  compositions  of  the  external 
feed  streams  are  constant,  resulting  in  the  constraint 


f  =  ft  Y 


(II-l) 


where 


ft(k)  =  total  external  feed  to  unit  k 


y(i,k)  =  mass  fraction  of  component  i  in 

the  total  external  feed  to  unit  k 


ft 


ft(l) 
f  t  (2 ) 


ft  (n) 


Y 


Y 

— m 
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Y. 

— l 


Y (if  1) 

y  (i/2) 


y  (i/m) 


Using  (III-l)  ,  f_  can  be  eliminated  from  the 
optimization  model.  The  equations  (11-15),  (11-26) 

and  (11-29)  become 


B  g  =  ft  Y 


(IH-2) 


(HI-3) 


ft ,  £,  £  0.0 


(III-4 ) 


and  the  objective  function  can  be  written 


minimize 


t  ..  ^  t  t 

=  Cr.  ft  +  c  g  -  c  p 
—ft —  — g—  — p— 


(II-5) 


and  are  the  constraint  and  cost  coefficients  of  the 

external  feed  f_,  appropriately  redefined  in  terms  of 
ft.  Equations  (11-16) ,  (11-28)  and  (III-2)  through  (III-5) 
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make  up  a  general  optimization  model. 

One  other  modification  to  the  model  is 
desirable.  The  model  as  developed,  allows  for 
precisely  one  feed  and  one  product  stream  per  unit. 

In  practice,  as  can  be  seen  from  the  flowchart, 
figure  1,  this  need  not  be  the  case.  A  more  efficient 
notation  can  be  developed  as  follows.  Define: 

fx(j)=jth  external  feed  stream. 

y*(i,j,k)  =  mass  fraction  of  component  i 

th. 

in  the  j  external  feed  stream,  fx(j), 
a  stream  which  goes  to  unit  k. 
y*(i,j,kk)  =  0.0  kk=l,....n  kk  ^  k 

th 

pr(i,j)  =  mass  flow  of  component  i  in  the  j 
external  product  stream. 

d*(i,j,k)  =  mass  fraction  of  the  total  flow  of 

component  i  to  unit  k  which  leaves  the 

th 

system  as  the  j  product  pr(i,j). 
d*(i,j,kk)  =  0.0  kk=l,....n  kk  =  k 


(3W%  c»i). 
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Then 

fx 


Y* 


nf  =  number  of  external  feed  streams 
np  =  number  of  external  product  streams 


fx(l) 

fx(2) 


(II-6 ) 


fx  (nf ) 


(II-7) 


where 


Y*.  is  an  (nf  x  n)  matrix 
—  1 


with  elements 


y* (i/ j ,k) 


£T 


pr (1,1) 
pr  (1,2) 


(II-8 ) 


pr  (m,  1) 
pr (m, 2) 

• 

pr  (m, np) 
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(II-9 ) 


D* 


-m 


D* 
— 1 


The  optimization  model,  written  in  terms  of  these 
variables,  consists  of  the  transformation  equations: 


is  an  (np  x  n)  matrix 


with  elements  d^, 

Dk 


=  d*(i,j,k) 


B  g  =  fx  Y* 


(III-10) 


pr 


=  t* 


a 


(in-ii) 


where 
T*  = 


D*  +  D*S 
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the  restrictions: 


< 


rhs 


(III-12 ) 


> 


0.0  <  sf  <  1.0 


(11-28) 


f 2. '  2/  :L  o .  o 


(III-13) 


and  the  objective  function: 


minimize  z 


(III-14 ) 


There  is  no  change  in  the  form  of  the  optimization 
model;  the  theory  developed  in  the  previous  chapter 
remains  applicable. 

2.  The  Specific  Model 


The  specific  model  has  been  developed  and 


tested  in  the  form  just  discussed.  The  process  can  be 
represented  by  19  units,  9  of  which  are  stream  splitters, 
characterized  by  variable  split  factors.  The  streams 
passing  through  units  16  to  19  contain  only  one  compon¬ 
ent,  isobutylene.  Consequently,  those  units  can  be 
eliminated  from  the  formulation  provided  that  their 
product  streams,  fx(8)  to  fx(ll)  are  regarded  as 
negative  feed  streams  to  units  8,9,  and  10.  For  this 


• 
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model,  f x ( 8 )  to  fx(ll)  appear  as  external  feed  streams 
with  negative  compositions. 

The  data  for  the  model,  based  on  that  provided 
by  Polymer  Corporation,  follows.  There  are  four 
components,  designated  as  follows: 

i _ component 

1  n-butylene 

2  i-butylene 

3  butane 

4  butadiene 


The  integer  parameters  are: 

no.  of  components  m  =  4 

no.  of  units  n  =  15 

no.  of  external  feed  streams  nf=ll 

no.  of  product  streams  np=6 

no.  of  variable  split  factors  ns=5 


Pertinent  data  for  the  matrices  B,  Y * ,  and  T * , 
the  a(i,j,k),  y*(i,j,k)  and  d*(i,j,k),  are  given  in 
tables  2-4.  The  matrix  of  reaction  conversion  factors 
S  has  only  two  nonzero  entries.  They  describe  the 
conversion  of  n-butylene  to  butadiene  in  unit  3.  The 
nominal  values  are: 


s  (1,1,3) 


-0.4 


■ 
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s (4,1,3)  =  0.4 

With  these  data,  the  transformation  equations  are 
defined . 


The  constraints  which  make  up  the  restrictions 
(III-12)  are  the  feedstock  availability  limits: 


fx  (1) 

< 

0.96 

(III- 

-15) 

fx  (2) 

< 

0.105 

(III- 

-16) 

fx(3) 

< 

0.027 

(III- 

-17) 

fx  (4) 

+ 

fx (5)  £  0.014 

(III- 

-18) 

fx  (6) 

< 

0.038 

(III- 

-19) 

fx  (7) 

< 

0.045 

(III- 

-20) 

unit  capacity  constraints: 


m 


g (if  2) 

< 

1.05 

(III-21) 

g  (2 , 1) 

< 

0. 

,23 

(III-22 ) 

g (1, 2) 

< 

0. 

,66 

(III-23) 

g  (i  f  3) 

< 

1. 

.15 

(III-24 ) 

g (4,5) 

< 

0. 

.26 

(III-25 ) 

g (4 , 6) 

< 

0, 

.26 

(III-26 ) 

g (2,10) 

< 

0. 

.14 

(II 1-27 ) 

product  requirements: 

p(4,3)  +  p(4,4)  0.06  (III-28) 
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P  ( 4 , 3 )  +  p ( 4 , 4  )  >  0.34 


(II 1-29 ) 


and  model  validity  requirements: 


fx(8)  -  a  { 2 , 8 , 9  )  9(2,8)  <  0.0 


(III-30 ) 


fx  (9 )  -  3(2,9,!)  g  (2 , 9  )  <  0.0 


(III-31) 


fx (10 ) -  a (2 , 9 , 10 )  g  (2 , 9 )  <  0.0 


(III-32 ) 


fx(ll)-  a  (2 , 10 , 1)  g  (2 , 10 )  <  0.0 


(III-33) 


The  constraints  (III-30)  to  (III-33)  ensure  that  the 
material  balance  on  units  16  to  19  is  not  violated. 
Constraints  (11-28)  and  (III-13)  complete  the 
restrictions  on  system  variables. 

The  objective  function  has  the  form  of  (III-14) 
with  coefficients  as  defined  in  tables  5-7. 

The  decision  variables  for  the  optimization 
model  will  be  the  external  feed  streams  fx(l)  to  fx(ll) 
and  the  split  factors  for  units  11  to  15.  They 
correspond  to  the  recovery  factors  a(i,ll,5),  a(i,12,3) 
a(i,13,l),  a(i,14,l)  and  a(i,15,l);  initial  values  for 
these  factors  are  given  in  table  3. 


All  flow  rates  are  in  millions  of  pounds  per  day. 


and  costs  are  in  tenths  of  a  dollar  per  pound. 
Consequently,  the  objective  function  is  in  hundred 
thousands  of  dollars  per  day.  It  should  be 
emphasized  that  the  objective  function  value  has  no 


67 


TABLE  2 

Feed  Stock  Mass  Fractions 
y* (i, j , k) 


j 

\i 

]\ 

1 

2 

3 

4 

1 

1 

0.4 

0.25 

0.35 

0.0 

2 

3 

0.92 

0.03 

0.04 

0.01 

3 

4 

0.6 

- 

0.1 

0.3 

4 

4 

0.08 

0.01 

0.01 

0.9 

5 

5 

0.08 

0.01 

0.01 

0.9 

6 

6 

0.3 

0.3 

- 

0.4 

7 

7 

0.1 

- 

- 

0.9 

8 

8 

- 

-1.0 

- 

- 

9 

9 

- 

-1.0 

- 

- 

10 

9 

- 

-1.0 

- 

- 

11 

10 

- 

-1.0 

- 

- 
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TABLE  3 

Nominal  Values  of  Recovery  Factors 

a  (i,  j ,k) 


j 

\i 

k\ 

1 

2 

3 

4 

1 

2 

1.0 

0.15 

1.0 

1.0 

1 

8 

- 

0.85 

- 

- 

2 

3 

0.92 

0.9 

0.15 

0.98 

3 

4 

1.0 

0.97 

0.9 

0.9 

4 

11 

0.95 

0.95 

0.95 

0.95 

5 

12 

1.0 

1.0 

1.0 

0.05 

6 

7 

0.2 

0.2 

- 

0.95 

6 

14 

0.8 

0.8 

1.0 

0.05 

7 

15 

1.0 

1.0 

- 

0.05 

8 

9 

- 

0.8 

- 

- 

9 

1 

- 

0.1 

- 

- 

9 

10 

- 

0.9 

- 

- 

10 

1 

- 

0.1 

- 

- 

11 

5 

0.5 

0.5 

0.5 

0.5 

11 

6 

0.5 

0.5 

0.5 

0.5 

12 

3 

0.8 

0.8 

0.8 

0.8 

12 

13 

0.2 

0.2 

0.2 

0.2 
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TABLE  3  cont ' d 


j 

\i 

k\ 

1 

2 

.  3 

4 

13 

1 

0.9 

0.9 

0.9 

0.9 

13 

2 

0.1 

0.1 

0.1 

0.1 

14 

1 

0.65 

0.65 

0.65 

0.65 

14 

3 

0.35 

0.35 

0.35 

0.35 

15 

1 

0.05 

0.05 

0.05 

0.05 

15 

3 

0.95 

0.95 

0.95 

0.95 

TABLE  4 


Nominal  Values  of  Product  Recovery  Factors 

d* (i , j ,k) 


j 

\  i 

1 

2 

3 

4 

1 

2 

0.08 

0.1 

0.85 

0.02 

2 

4 

0.05 

0.05 

0.05 

0.05 

3 

5 

- 

- 

- 

0.95 

4 

7 

- 

- 

1.0 

0.95 

5 

8 

- 

0.1 

- 

- 

6 

10 

- 

0.85 

- 

- 
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TABLE  5 


Feed  Stock  Costs  -  $/lb  x  10 
c  ^  ,  c(k)  =  cost  of  fx(k) 


k 

c  (k) 

1 

0.02 

2 

0.03 

3 

0.048 

4 

0.1 

5 

0.1 

6 

0.038 

7 

0.11 

8 

-  0.034 

9 

-  0.084 

10 

-  0.033 

11 

-  0.034 

71 

TABLE  6 

Operating  Costs  -  $/lb  x  10  1 


Cg  c (i ,  j  ) 

corresponds  to  g(i,j) 

i  j 

c  (i,  j) 

2  1 

0.032 

1  2 

0.032 

4  4 

0.028 

4  5 

0.0076 

4  6 

0.0064 

4  7 

0.0029 

2  10  0.052 


' 
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TABLE  7 


Product  Prices  -  $/lb  x  10 


c 

“ Pr 


c(i,j)  =  value  of  product  pr(i,j) 


l 


j 


c  (i, j ) 


3 

1 

2 

3 

4 
4 
4 
2 
2 


1 

2 

2 

2 

2 

3 

4 

5 

6 


0.029 

0.012 

0.012 

0.012 

0.012 

0.12 

0.12 

0.026 

0.3 


' 
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TABLE  8 

Linear  Problem  Solution 
Initial  Data 

Objective  Function  Value  =  -  0.2086 
Decision  Variable  Value 


fx  (1) 

0.736 

fx  (2) 

0.105 

fx  (3) 

0.0 

fx  (4 ) 

0.0 

fx  (5) 

0.014 

fx  (6) 

0.038 

fx  (7) 

0.0 

f  x  ( 8 ) 

0.0 

fx  (9 ) 

0.016 

fx  (10 ) 

0.0 

fx(ll) 

0 . 007 

a (i,ll  ,5)  = 

=  0.5 

a (i,12, 3)  = 

=  0.8 

a(i,13,l)  = 

=  0.9 

3(1,14,1)  = 

=  0.65 

a (i , 15 , 1)  = 

=  0.05 

. 
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physical  significance  because  fixed  costs  are  not 
included  in  the  analysis.  It  is  only  useful  for 
comparison . 

3.  Verification 

For  testing  purposes,  linear  programming  was 
used  to  find  optimal  solutions  to  the  specific 
optimization  model  for  the  butadiene  process.  The 
split  factors  were  treated  as  fixed  at  their  initial 
values  as  presented  in  table  2. 

A  Fortran  program  was  written  to  generate  both 
the  general  and  reduced  forms  of  the  optimization  model 
in  a  form  suitable  for  input  to  MPS/360,  IBM's 
mathematical  programming  system  (30) .  MPS/360  was 

used  to  obtain  an  optimal  solution  to  the  linear 
programming  problem,  and  their  parametric  procedures 
were  helpful  in  pinpointing  data  inconsistencies. 

Several  data  errors  and  model  errors  were 
corrected  resulting  in  the  model  just  presented.  The 
solution  to  the  linear  programming  problem  places  the 
system  variables  at  levels  very  similar  to  the  original 
plant  operating  conditions.  It  provides  an  excellent 
reference  point  for  comparison  with  the  nonlinear 
optimization  procedures  to  be  discussed  in  later 
sections.  The  solution  appears  in  table  8. 


- 
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The  Fortran  programs  for  model  generation 
from  data  and  MPS/360  programs  for  the  linear 
programming  solutions  appear  in  Appendix  B  along  with 
program  documentation.  A  separate  subroutine  was 
written  to  handle  model  data  input.  Printouts, 
documentation  and  input  data  appear  in  Appendix  C. 
This  subroutine  was  used  for  model  data  input  to 
all  of  the  programs  used  in  the  course  of  the 
butadiene  area  optimization. 


C.  The  Deterministic  Decision 


The  deterministic  decision  problem  can  be 
defined  symbolically  as  the  following  nonlinear 
programming  problem 
Find  f,  sf 


so  as  to 


minimize  z  = 


t 
c,- 
— fx 


r;  ,  t  ,  t 

fx  +  c  g  +  c  pr 

—  -g-  -pr*— 


(III-14 ) 


Subject  to: 

B  g  =  fx  Y * 
pr  =  T*cj. 

< 

R_  fx  +  R  g  +  R  pr  =  rhs 
— fx  —  — g—  — pr2—  - 

> 


(III-10) 

(III-ll) 


(III-12) 


■ 
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0.0  <  sf  <  1.0 


(III-28 ) 


fx ,  g,  pr  _>  0.0 


(III-13 ) 


Since  there  are  only  5  variable  split  factors 


the  hill-climbing  technique  suggested  in  Chapter  II, 
section  D,  can  be  employed  to  solve  the  problem.  The 
pattern  search  method  of  Hooke  and  Jeeves  (19) ,  as 
described  by  Wilde  and  Beightler  (20) ,  is  used  for 
the  nonlinear  search.  At  each  trial,  a  set  of  values 
for  the  sf_  is  generated  and  used  to  define  a  correspond¬ 
ing  linear  programming  problem  which  is  solved  to 
determine  optimal  external  feed  rates  for  that  trial. 
Dantzig's  two-phase  simplex  algorithm  (25)  can  be 
used  to  solve  the  linear  programming  problem. 


The  form  of  the  nonlinear  programming  problem 


used  for  the  pattern  search  solution  can  be  described 
symbolically  as: 

find  sf_ 
so  as  to 


minimize  z 


_g_ - 


cfc  T*B_1f x  Y* 
_pr - - 


(III-34 ) 


' 


. 
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subject  to: 

0.0  <_  sf  1.0 

fx  =  fx_  chosen  so  as  to 

minimize  z  =  cjr  fx  +  c  B  "^fx  Y* 
s  — fx — s  — g—  — s— 


(III-28 ) 


cfc  T*  B- 
-pr-  - 


f x  Y* 


(III-34) 


subject  to: 


Rr-  f  x 

— f  x — 


+ 


R  T*B_1fx  Y* 
-pr — s— 


< 

=  rhs 


> 

(III-35) 


>  0.0 


(III-13) 


Note  that  the  reduced  form  of  the  problem  has  been 
developed,  as  in  chapter  2,  by  using  the  transformation 
equations  (III-10)  and  (III-ll)  to  eliminate  the 
variables  and  £. 

The  deterministic  decision  problem  was  solved 
in  the  manner  proposed  above.  The  recovery  factors, 
product  recovery  factors  and  reaction  conversion  factors 
were  assigned  their  nominal  values.  Initial  values  for 
the  split  factors  were  the  nominal  values  given  in 
table  3.  No  computational  difficulties  were  encountered. 


The  solution  to  the  deterministic  problem 
appears  in  table  9.  As  can  be  seen,  the  use  of 
nonlinear  programming  to  determine  optimal  split 


£  \ 
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TABLE  9. 

Deterministic  Decision  Problem  Solution 


this  is  the  optimal  soluticn 

OBJECT  I V  E  FUNCTION  =  -0.2681E-01 


VARIABLE  NAME  VALUE 


FX 

1 

0,82432 

FX 

2 

0.10491 

FX 

3 

0.0 

FX 

4 

C.O 

FX 

5 

o 

• 

o 

FX 

6 

0 .03800 

FX 

7 

o 

. 

o 

FX 

8 

o 

• 

o 

F  X 

9 

0.01556 

FX 

10 

0.0 

FX 

1  1 

0.0 

A  (  I  » 

1  1  « 

5) 

0. 74699 

All, 

12  , 

3  ) 

1.00000 

All* 

13  , 

1  > 

1 .00000 

A  (  I  . 

14, 

1  ) 

0.09000 

A  (  I  * 

15, 

1  ) 

o 

. 

o 

I N  TERN  AL 

STREAM  - 

G(  I  .  J  ) 

J 

I 

=  1 

2 

3 

4 

1 

C. 34046 

0.22876 

0.29423 

0. 00046 

2 

0.34046 

0.03421 

0.29423 

0. C0046 

3 

0.95443 

0. 4681 5 

0. 29386 

0. 02508 

4 

0 . 57266 

0 .454  1  1 

0 .2644  7 

0. 36616 

5 

0.40638 

0 .32226 

0 . 18768 

0. 25985 

6 

0.1 4904 

0.  12055 

0  .‘  C  6  3  5  7 

0.  10321 

7 

0.02981 

0.02411 

0.0 

0. 09805 

8 

0 . 0 

0 . 19444 

o 

. 

o 

o 

. 

o 

9 

o 

. 

o 

0 . 15556 

o 

• 

o 

o 

. 

o 

1  0 

0.0 

0.14000 

o 

« 

o 

0.0 

1  1 

0.54403 

0.43140 

0 . 25125 

0.34785 

l  2 

0.40638 

0.32226 

0 . 18768 

0.01  299 

1  3 

0.0 

0 .0 

O 

* 

o 

o 

. 

o 

1  4 

0.  1  1923 

0 .09644 

0.06357 

0. 00516 

1  5 

0 . 0298 1 

0.02411 

0 . 0 

0. 00586 

PRODUCT 

STREAMS  - 

p ( I , J) 

J  I 

=  1 

2 

3 

4 

1 

0. C2724 

0 .00343 

0.2501 0 

0.0000 1 

2 

0.02863 

0.02271 

0 .0  1322 

0.01831 

3 

0.0 

o 

• 

o 

0. 0 

0. 24685 

4 

O 

. 

o 

0.0 

o 

. 

o 

0. 09315 

5 

0.0 

0 .01944 

o 

• 

o 

o 

. 

o 

6 

o 

• 

o 

0.11900 

o 

. 

o 

0. 0 

1 


■ 

' 

-  .  0 

.1.0 
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factors  has  brought  about  a  substantial  improvement 
in  the  objective  function  value,  close  to  $6,000 
dollars  per  day.  The  solution  was  compared  with 
available  information  on  the  operation  of  the  existing 
system  to  confirm  that  the  results  are  realistic.  No 
inconsistencies  were  observed. 

A  check  was  made  on  the  location  of  the 
optimum  by  solving  the  nonlinear  programming  problem 
for  several  sets  of  initial  split  factor  values.  No 
alternate  optima  were  found.  Initial  conditions  and 
optimization  results  for  these  cases  appear  in 
Appendix  F. 

The  program  used  to  solve  the  nonlinear 
programming  problem  can  be  conveniently  divided  into 
four  sections,  each  of  which  has  been  dealt  with  in  a 
separate  appendix.  Printouts,  documentation  and  comput¬ 
ational  details  are  included  for  each.  The  mainline 
program  for  the  pattern  search  solution  and  the  pattern 
search  algorithm  appear  in  Appendix  F.  Model  data 
input  routines  and  formats  are  covered  in  Appendix  C. 
Appendix  E  deals  with  the  fortran  programs  used  to 
generate  the  reduced  form  of  the  optimization  model, 
given  completely  specified  technology  matrices.  Finally, 
Appendix  D  is  concerned  with  the  simple  Fortran 
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subroutines  written  to  set  up  the  optimization  model  in 
the  form  required  by  Dantzig's  two-phase  simplex 
algorithm  (25) ,  to  solve  the  linear  programming  problem, 
and  to  organize  and  printout  the  results  and  error 
messages.  The  material  in  Appendices  C,  D,  and  E 
is  presented  separately  because  these  programs  were 
used  repeatedly  throughout  the  analysis. 

D.  Sensitivity  Analysis 
1 .  Model  Parameters 

A  sensitivity  analysis  was  carried  out  on  the 
system  model  parameters,  a(i,j,k),  d*(i,j,k)  and  s(i,q,k) 
to  determine  which  are  critical  to  the  system  represen¬ 
tation.  Most  of  the  parameters  are  coupled,  either 
by  the  equivalent  of  (11-17) 

np  n 

2  d*(i,kk,j)  +  2  a(i,j,k)  £  1.0  (III-36) 

kk=l  k=l 


or  by 


m 

2  s(i,q,j)  £  0.0  (11-20) 

i=l 


These  relations  can  be  written  as  equalities  by  adding 


a  term  for  losses. 
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np  n 

l  d*  (i ,kk , j )  +  Z  a (i , j ,k)  +  losses  =  1.0  ( III  —  37 ) 

kk=l  k=l 

m 

Z  s(i,q,j)  +  losses  =  0.0  (III  —  38) 

i=l 

In  general,  losses  are  small.  If  they  are  treated 
as  constant,  then  equations  (III-37)  and  (III-38)  can 
be  used  to  define  the  joint  relationships  between 
coupled  parameters.  The  parameter  couplings  defined 
by  equations  (III-37)  and  (III-38)  are  easily 
identified.  Unit  4  is  a  special  case.  For  this  unit, 
the  relationships 


a (i, 4 ,11) 

=  a (q,4 ,11) 

i=l . . m 

(hi 

-39) 

d* (i , 2 , 4 ) 

=  d* (q,2 ,4) 

i-l . . in 

(hi 

-40) 

also  hold  and  must  be  accounted  for  in  the  sensitivity 
analysis . 

Each  parameter  has  been  assigned  an  interval 
of  uncertainty,  symmetrical  about  the  nominal  value, 
which  reflects  initial  information  about  the  range  of 
the  parameter.  Those  parameters  with  an  interval  size  of 
0.0  are  considered  to  be  known  with  certainty. 

The  parameters,  their  nominal  values  and  the 
assigned  interval  size  appear  in  table  10.  Parameter 
couplings  are  also  indicated  there. 
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The  sensitivity  analysis  is  carried  out  by 
perturbing  a  single  base  parameter,  adjusting  any 
coupled  parameters  according  to  the  appropriate 
relationship,  and  observing  the  effect  on  objective 
function  value.  For  each  perturbation,  the  split 
factors  are  held  constant  at  their  optimal  level  and 
the  optimal  solution  to  the  resulting  linear 
programming  problem  is  found.  This  is  the  objective 
function  value  used  for  comparison  with  the  reference 
value,  the  value  of  the  optimal  solution  to  the 
deterministic  problem.  An  attempt  to  compare  objective 
function  values  without  determining  new  optimal  feed 
rates  for  the  perturbed  problem  would  be  meaningless; 
the  optimal  strategy  for  the  deterministic  problem 
will  not  always  be  feasible  for  the  perturbed  problem. 

The  computer  summary  of  sensitivity  analysis 
results  appears  in  Table  11.  Each  perturbation  is 
identified  only  by  a  perturbation  sequence  number.  This 
sequence  number  is  correlated  with  the  base  parameter 
perturbed,  the  amount  of  the  perturbation,  and  the 
total  objective  function  value  change  over  the 
perturbation  interval  in  Table  12. 

For  this  analysis*,  those  parameters  whose 
perturbation  caused  a  single  variation  in  objective 
function  value  greater  than  4%,  and  a  total  variation 


TABLE 


10 


Parameter  Couplings,  Nominal  Values 
and  Interval  Size 
Parameter  Sensitivity  Analysis 
Interval  centered  on  Nominal  Value 

Parameter  Norn.  Coupled  Norn.  Interval 


Value 

Parameter 

Value 

Size 

a (2,1,2) 

0.15 

a  (2,1,8) 

0.85 

0.1 

a (1 , 2 , 3) 

0.92 

d* (1 , 1 , 2 ) 

0.08 

0.1 

a (2 , 2 , 3) 

0.9 

d* (2,1,2) 

0.1 

0.1 

a (3,2,3) 

0.15 

d* (3,1,2) 

0.85 

0.1 

a (4 , 2 , 3) 

0.98 

d*  (4,1,2) 

0.02 

0.0 

a  (1,3,4) 

1.0 

- 

- 

0.0 

a (2, 3,4) 

0.97 

- 

0.0 

a  (3 , 3 , 4) 

0.90 

- 

0.1 

a (4 , 3 , 4) 

0.90 

- 

0.1 

a (i , 4 , 11) 

0.95 

d* (i , 2 , 4) 

0.05 

0.05 

a (1,5,12) 

1.0 

d* (1 , 3 , 5) 

0.0 

0.0 

a (2,5,12) 

1.0 

d* (2,3,5) 

0.0 

0.0 

a (3 , 5 , 12 ) 

1.0 

d*  (3,3,5) 

0.0 

0.0 

, 
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TABLE  10  cont'd 


Parameter 

Nom. 

Value 

Coupled 

Parameter 

Nom. 

Value 

Interval 

Size 

3(4,5,12) 

0.05 

d* (4,3,5) 

0.95 

0.05 

a  (1,6,7) 

0.2 

a  (1,6,14) 

0.8 

0.1 

a (2 , 6 , 7) 

0.2 

a (2,6 ,14) 

0.8 

0.1 

a (3, 6 , 7) 

0.0 

a  (3,6,14) 

1.0 

0.0 

a (4 ,6 , 7) 

0.95 

a (4 , 6 , 14 ) 

0.05 

0.05 

a (1,7,15) 

1.0 

d* (1,4,7) 

0.0 

0.0 

a (2,7,15) 

1.0 

d* (2,4,7) 

0.0 

0.0 

a (3 , 7 , 15) 

0.0 

d*  ( 3 , 4 , 7 ) 

1.0 

0.0 

a (4 , 7 , 15) 

0.05 

d*  ( 4 , 4 , 7 ) 

0.95 

0.05 

a  (2 , 8 ,9 ) 

0.8 

d*  (2,5,8) 

0.1 

0.1 

a (2 , 9 ,1) 

0.1 

a  (2,9,10) 

0.9 

0.1 

a (2,10,1) 

0.1 

d* (2,6 ,10) 

0.85 

0.1 

s (1,1,3) 

-0.4 

s (4 ,1, 3) 

0.4 

0.15 

■ 

. 
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TABLE  11. 

Result  printout 


BUTADIENE  AREA  -  PARAMETER  SENSITIVITY 

THE  OPTIMAL  SOLUTION  TO  THE  DETERMINISTIC  PROBLEM  IS  USED 
AS  THE  REFERENCE  STRATEGY. 

DVAL  =  REFERENCE  OBJECTIVE  FUNCTION  VALUE 
=  -0.026815 

OVAL  -  OBJECTIVE  FUNCTION  VALUE  FOR  THE  PERTURBEB 
PROOLEM  UNDER  THE  OPTIMAL  STRATEGY  FOR 
THAT  PROBLEM 

NPERT  =  PERTURBATION  NUMBER 


NPERT 

OVAL 

OVAL-DVAL 

%  CHANGF 

1 

-0 . 02735 1 

-0.000536 

1 . 999895 

2 

-0.0260 1 6 

0.000799 

-2.979108 

3 

-0.025208 

0.001 606 

-5.990613 

4 

-0 .027466 

-0. 000652 

2.430039 

5 

-0 .026836 

-0.000022 

0.080383 

6 

-0.026789 

0.000025 

-0 .094429 

7 

-0 .026479 

C. 000336 

-1.252246 

8 

-0.027146 

-0.000332 

1 . 237135 

9 

-0.026960 

-0.0001 45 

0 . 540092 

1  0 

-0 .026735 

0.000080 

-0 . 298373 

1  1 

-0.027539 

-0.000725 

2.702823 

l  2 

-0 .0256 1 7 

0.001197 

-4.465028 

13 

-0.027592 

-0. 0C0777 

2.898654 

1  4 

-0.025637 

0.001177 

-4.391148 

1  5 

-0 .026263 

0.000552 

-2.059314 

16 

-0. 027103 

-0 . 000289 

1 . 076044 

1  7 

-0 . 026838 

-0.000023 

0.086663 

18 

-0.026792 

0 . 000023 

-0.086121 

1  9 

-0.026796 

0.000019 

-0.070269 

20 

-0 . 02682 7 

-0. 0000 13 

0.046874 

2  1 

-0.026919 

-0. 0001 04 

0. 387690 

22 

-0.026618 

0.000197 

-0 .734576 

23 

-0 .026578 

0.000237 

-0. 882492 

24 

-0.026887 

-0.000072 

0 . 2697 1 3 

25 

-0.027331 

-0.000516 

1 .925930 

26 

-0.025227 

0.001 587 

-5.919580 

27 

-0.025554 

0.001261 

-4 . 70 1079 

28 

-0.027245 

-0.  0004  30 

l  .  60  30  36 

29 

-0 .024954 

0.001861 

-6.940846 

30 

-0 .028572 

-0.00  1757 

6.551 767 

31 

-0.027052 

-0 . 000237 

0 . 383784 

32 

-0.026188 

0. 0C0627 

-2. 3381 25 

■ 
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TABLE  12 

Perturbations  and  Results 
Parameter  Sensitivity  Analysis 

Perturbation  Base  Base  Total  %  Change 

Number  Parameter  Perturbation  Obj .  Function 


1,2 

a  (1 , 2 , 3 ) 

+  0.05 

5.0 

3,4 

a (2 , 1 , 2 ) 

+  0.05 

8.4 

5,6 

a  ( 2 , 2 , 3 ) 

+  0.05 

0.17 

7,8 

a (3 , 2 , 3) 

+  0.05 

2.5 

9,10 

a  ( 3 , 3 , 4 ) 

+  0.05 

0.83 

11,12 

a (4 , 3 , 4 ) 

+  0.05 

7.2 

13,14 

a (i , 4 ,11) 

+  0.025 

7.3 

15,16 

a (4 , 5 , 12) 

+  0.025 

3.2 

17,18 

a  ( 1 , 6 , 7 ) 

+  0.05 

0.18 

19,20 

a  (2 , 6 , 7  ) 

+  0.05 

0.12 

21,22 

a (4 , 6 , 7 ) 

+  0.025 

1.1 

23,24 

a  (4 , 7 , 15 ) 

+  0.025 

1.1 

25,26 

a  ( 2 , 8 , 9  ) 

+  0.05 

7.8 

27,28 

a (2 , 9 , 1) 

+  0.05 

6.3 

29,30 

a (2,10,1) 

+  0.05 

13.5 

31,32 

s  (1,1,3) 

+  0.075 

3.2 

' 
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greater  than  6%,  were  identified  as  critical  parameters. 
From  tables  11  and  12,  in  order  of  sensitivity,  the 
critical  parameters  are: 

Parameter  Coupled  Parameter 


a  (2,10,1) 

d* (2,6,10) 

a (2,1,2) 

a  (2 , 1 , 8 ) 

a (2 , 8 ,9) 

d*  (2,5,8) 

a  (i  ,  4 , 11 ) 

d* (i,2,4) 

a (4,3,4) 

a (2 ,9 ,1) 

a  (2,9 ,10) 

On  the  basis  of  this  sensitivity  analysis  it 
is  assumed  that  uncertainty  in  the  remaining  non-critical 
parameters  has  a  negligible  effect  on  the  decision 
problem.  They  are  treated  as  if  they  were  known,  with 
certainty,  to  have  their  nominal  values. 

As  Demski (22)  has  pointed  out,  the  set  of 
critical  parameters  just  identified  is  not  necessarily 
stable  over  changes  in  model  parameters,  model  structure 
or  process  operating  conditions.  Their  applicability 
to  the  existing  process  is  dependent  on  the  realism 
of  the  model  representation. 

Printouts ,  documentation  and  computational 
details  of  programs  written  to  perform  the  sensitivity 
analysis  appear  in  Appendix  G. 
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2 .  Split  Factors 

A  sensitivity  analysis  was  carried  out  to 
identify  those  split  factors  which  have  a  critical 
effect  on  objective  function  value.  It  was  accomplished 
in  two  stages. 

In  the  first  stage,  each  variable  split  factor 
was  perturbed  in  turn  about  its  optimal  level,  the 
optimal  solution  to  the  corresponding  linear  programming 
problem  was  found,  and  the  change  in  objective 
function  value  observed.  The  computer  summary  of  the 
results  appears  in  Table  13.  The  perturbation  sequence 
number  appearing  on  the  computer  printout,  Table  13, 
is  correlated  with  the  split  factor  perturbation  and 
the  split  factor's  optimal  value  in  Table  14.  Split 
factor  a (i, 13,1)  was  not  perturbed  because  unit  13 
is  not  used  in  the  optimal  solution  to  the  deterministic 
problem. 

From  Table  13,  only  split  factors  a(i,ll,5) 
and  a(i,12,3)  are  noticeably  sensitive. 

The  second  stage,  termed  the  range  analysis, 
is  performed  to  determine  whether  or  not  there  could 
be  an  appreciable  change  in  the  optimal  values  of  the 
sensitive  split  factors  due  to  the  uncertainty  in  the 
critical  parameters.  Each  critical  parameter  was 
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perturbed  in  turn  as  in  the  parameter  sensitivity 
analysis.  For  each  perturbation,  the  non-sensitive 
split  factors  were  held  constant  at  their  optimal  level, 
and  the  solution  to  the  corresponding  nonlinear 
programming  problem  found.  The  computer  summary  of 
results  appears  in  Table  15.  The  perturbation  sequence 
number  is  correlated  with  the  critical  parameter 
perturbation  in  Table  16. 

As  can  be  seen  from  Table  15,  no  appreciable 
variation  in  the  optimal  value  of  the  sensitive  split 
factors  was  observed.  Therefore,  the  split  factors 
may  reasonably  be  treated  as  constants,  fixed  at  their 
optimal  value. 

As  Demski  (22)  pointed  out,  these  results  are 
valid  only  so  long  as  no  substantial  changes  are  made 
in  model  parameters  structure;  or  operating  conditions; 
they  need  not  be  applicable  to  the  existing  process 
if  the  model's  representation  is  poor. 

Printouts ,  documentation  and  computational 
details  of  programs  written  to  perform  the  sensitivity 
analysis  appear  in  Appendix  G. 
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TABLE  13. 

Result  Printout 


EUTADIENF  AREA  -  SPLIT  FACTOR  SENSITIVITY 

THE  OPTIMAL  SOLUTION  TO  THE  DETERMINISTIC  PROBLEM  IS  USED 
AS  THE  REFERENCE  STRATEGY. 

OVAL  =  REFERENCE  OBJFCT I VE  FUNCTION  VALUE 
=  —0.026815 

OVAL  =  OBJECTIVE  FUNCTION  VALUE  FOR  THE  PERTURBEB 
PROBLEM  UNDER  THE  OPTIMAL  STRATEGY  FOR 
THAT  PROBLEM 

NPERT  =  PERTURBATION  NUMBER 


NPERT 

OVAL 

OV AL-DVAL 

%  CHANGE 

1 

-0 .0260 1  7 

0 . 0  C  0  7  9  7 

-2. 

973577 

2 

-0.026746 

0. 000068 

-0  . 

254973 

3 

-0 .025330 

0.001476 

-5. 

504771 

4 

-0 .026660 

0 .000 1 46 

-0  . 

541857 

5 

-0 .026423 

C. 00039 1 

-  1  • 

4600  1  1 

6 

-0 .0259 1 1 

0 .000904 

-3. 

369992 

7 

-0 .026773 

0.000042 

-0  . 

1 57488 

8 

-0 .026759 

0 .000056 

-0  . 

20  7793 

c 

-0 .026  702 

0.000  1  13 

-0  . 

421852 

1  0 

-0 . 026677 

0.000137 

-0  . 

51 1 807 

1  1 

-0 .026789 

0.000026 

-0  . 

0978  32 

1  2 

-0  .0  26760 

0.000055 

-0  . 

20  3709 
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TABLE  14 
Perturbations 

Split  Factor  Sensitivity  Analysis 

Perturbation  Split  Optimal  Perturbation 

Number  Factor  Value 


1 

3(1,11,5) 

0.747 

+0.053 

2 

a (i , 11 , 5) 

0.747 

-0.047 

3 

a (i ,11 , 5) 

0.747 

+0.103 

4 

a (i, 11 , 5) 

0.747 

-0.097 

5 

a  (i ,  12 , 3 ) 

1.0 

-0.05 

6 

a  (i , 12 , 3 ) 

1.0 

-0.1 

7 

a  (i , 14 , 1 ) 

0.09 

-0.05 

8 

a (i , 14 , 1) 

0.09 

+0.05 

9 

a (i, 14,1) 

0.09 

-0.09 

10 

a (i , 14 , 1) 

0.09 

+0.1 

11 

a (i , 15 , 3) 

1.0 

m 

o 

• 

o 

l 

12 

a (i , 15 , 3 ) 

1.0 

-0.1 
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TABLE  15 . 


Range  Analysis  -  Result  Summary 


BUTADIENE  AREA  -  S.E.  RANGE  ANALYSIS 

THE  OPTIMAL  SOLUTION  TO  THE  DETERMINISTIC  PROBLEM  IS  USED 
AS  THE  REFERENCE  STRATEGY. 

OVAL  =  REFERENCE  OBJECTIVE  FUNCTION  VALUE 
=  -0.026805 

OVAL  =  OBJECTIVE  FUNCTION  VALUE  FOR  THE  PERTURQEB 
PROELEM  UNDER  THE  OPTIMAL  STRATEGY  FOR 
THAT  PROBLEM 

NPERT  =  PERTURBATION  NUMBER 
%  CHANGE  =  %  CHANGE  IN  OBJECTIVE  FUNCTION  VALUE 


NPERT 

X  CHANGE 

S  .F  .  1 

S  .  F  .  2 

1 

-5.98 

0 . 740 

1.000 

2 

2 . 42 

0.74  0 

1.000 

3 

2.71 

0.740 

1 . 000 

4 

-4.48 

0.740 

1.000 

5 

3.06 

0.740 

0.980 

6 

-4.41 

0.740 

1.000 

7 

1.91 

0. 740 

1.000 

8 

-5.91 

0.740 

l  .  0  0  0 

9 

-4.71 

0.740 

o 

o 

o 

. 

f* 

10 

1 . 60 

0.740 

1.000 

1  1 

-6.95 

0.740 

1.000 

1  2 

6  •  56 

0.740 

1.000 

SPLI  T 

FACTOR  MEAN  VAR 

I  ANCE 

0.740  0.17E-06 

C.998  0.34E-04 


1 

2 


. 


. 
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TABLE  16 
Perturbations 

Split  Factor  Range  Analysis 

Perturbation  Critical  Perturbation 

Number  Parameter 


1 

a (2,1,2) 

+  0.05 

2 

a (2 , 1 , 2) 

-0.05 

3 

a (4,3,4) 

+0 . 05 

4 

a(4,3,4) 

-0.05 

5 

a (i, 4,11) 

+0.025 

6 

a (i , 4 ,11) 

-0 . 025 

7 

a (2 , 8 ,9) 

+0.05 

8 

a (2,8,9) 

-0.05 

9 

a (2,9,1) 

+0.05 

10 

a (2,9,1) 

-0.05 

11 

a (2 , 10 , 1) 

+0.05 

12 

a  (2,10,1) 

-0.05 
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E.  The  Probabilistic  Phase 
1 .  Encoding  Uncertainty 

Each  of  the  model  parameters  identified 
as  uncertain  is  assigned  a  probability  distribution 
in  accordance  with  the  state  of  knowledge  about  the 
parameter.  In  this  case  the  probability  distributions 
are  subjective,  assigned  on  the  basis  of  opinion 
analysis.  The  distributions  are  assumed  to  be 
independent  and  normal  with  parameters  as  detailed 
in  Table  17. 

The  expected  value  of  each  distribution  is 
identical  to  the  nominal  value  assigned  to  the  critical 
parameter.  The  probability  that  the  critical 
parameter  value  will  lie  outside  the  interval  assigned 
for  the  sensitivity  analysis  can  be  calculated  from 
the  definition  of  the  normal  distribution  (30) . 

That  is 


>68  > 


2  (l-t(6  /a  )) 


(III-41) 


where  8 .  =  i*'*1 
i 


critical  parameter 


. 
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TABLE  17 


Subjective  Probability  Distribution  Parameters 


Normal  Distribution 


=  expected  value 

p 


2 

Or.  =  variance 

p 


Symbol 

Parameter 

6i 

d*  (2,6,10) 

0.85 

0.0004 

32 

a (2,1,8) 

0.85 

0.0004 

63 

a (2,8,9) 

0 . 8 

0.0004 

64 

a (i,4 ,11) 

0.95 

0.0001 

S5 

a  (4 , 3 , 4) 

0.9 

0.0004 

K 

a  (2,9,1) 

0.1 

0.0004 

' 
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Hg  =  expected  value,  3^ 

260  =  .  interval  size 

6  i 

i 

2 

a 0  =  variance,  3. 

6i  1 

$  =  standardized  cumulative  normal 
probability  distribution 

p  (e)  =  probability  of  the  event  e 

For  all  critical  parameters,  that  probability  is 
0.0124.  Because  the  normal  distribution  is  unbounded 
there  is  a  finite  probability  that  the  critical 
parameter  value,  3^  will  violate  one  of  the  constraints 
(11-18)  and  (11-19).  It  is  indistinguishable  from 
0.0000  and  hence  negligible.  Details  of  these 
calculations  appear  in  Appendix  A. 

The  subjective  probability  distributions  have 
been  shown  to  be  consistent  with  the  information 
available  for  the  sensitivity  analysis. 

2 .  The  Optimal  Policy 

Because  the  expected  values  of  the  critical 
parameter  distributions  are  identical  to  their 
nominal  values,  the  solution  to  the  modified  stochastic 
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problem  is  identical  to  the  solution  to  the  deterministic 
problem,  Table  9.  An  optimal  policy,  expressed  in 
terms  of  a  set  of  guidelines  for  process  operation, 
can  be  formulated  on  the  basis  of  that  solution. 

The  following  characteristics  of  the 
optimal  solution  to  the  deterministic  problem  are 
noted: 


fx(6)  =  0.038  upper  limit  -  (III-19) 

f x  (9 )  =  0.01556  upper  limit  -  (III-31) 

fx  (3)  ,fx  (4)  ,fx  (5)  ,fx  (7)  =  0.0 
fx (8) ,  fx (10 ) ,fx(ll)  =0.0 

g  (2,10)  upper  limit  -  (III-27) 

p(4,3)  +  p(4,4)  upper  limit  -  (I II -2 9) 

g(2,l)  =  0.22876  close  to  capacity  -  (III-22) 
g(4,5)  =  0.25985  close  to  capacity  -  (III-25) 


A  set  of  guidelines  formulated  on  the  basis 
of  these  characteristics  is : 

1.  Use  all  available  fx(9). 

2.  Use  all  available  fx(6). 

3.  Use  no  fx(8),  fx(10),  fx(ll). 

4.  Use  no  fx(3),  fx(4),  fx(5),  fx(7). 

5.  Use  as  much  fx(l)  as  possible. 

6.  Use  as  much  fx(2)  as  possible. 
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The  guidelines  can  be  formally  incorporated 
into  an  optimization  model  by  specifying  a  new 
objective  function  to  account  for  guidelines  1,5,  and  6 
and  additional  constraints  ensuring  adherance  to  guide¬ 
lines  2,3,  and  4.  A  suitable  objective  function  would 
take  the  form: 

minimize  zg  =  c^fx(9)  +  c2fx(l)  +  c3fx(2)  (III-42) 


Examination  of  the  optimal  solution  to  the 
deterministic  problem  reveals  other  useful  information. 
For  the  butadiene  process  discussed  here,  the  butyl 
rubber  section  can  operate  close  to  capacity.  There 
is  excess  capacity  in  the  butadiene  section,  and  hence 
opportunity  for  additional  profit  if  additional  markets 
and  additional  suitable  feedstock,  such  as  fx(2), 
can  be  found. 

F.  Expected  Cost  of  Uncertainty 

The  expected  cost  of  uncertainty  is  an 

1 

indication  of  the  value  of  obtaining  complete 
information  about  the  critical  parameters.  Monte  Carlo 
simulation,  as  outlined  in  Chapter  II,  section  J,  was 


' 


l. 


99 


used  to  obtain  an  unbiased  estimate  of  the  expected 
cost  of  uncertainty. 

A  series  of  independent  random  samples  of  the 
cost  of  uncertainty  is  generated.  For  the  j  sample, 
the  procedure  is : 

1.  Using  normally  distributed  random  numbers 
supplied  by  IBM's  random  number  generator  (32), 

an  independent  random,  3^  {j}/  is  obtained  from  each 

critical  parameter's  probability  distribution. 

th 

2.  The  j  system  model  is  defined  using  the 
{j}.  The  model  is  linear  because  the  split  factors 

can  be  treated  as  fixed. 

3.  The  objective  function  value  z  {j}, 

s 

corresponding  to  the  operating  strategy  formulated  in 
terms  of  guidelines  (section  E-2)  is  calculated.  The 
solution  of  a  linear  programming  problem  is  required. 

4.  The  objective  function  value  z  {j}, 

th 

corresponding  to  the  optimal  strategy  for  the  j 

system  model,  is  calculated.  The  solution  of  the 

th 

deterministic  optimization  problem  for  the  j  system 
model,  a  linear  programming  problem,  is  required. 

5.  The  cost  of  uncertainty  is  z  { j } —  z  {j}. 

s  c 

If  N  samples  were  generated  an  estimate  of  the 
expected  cost  of  uncertainty  is  the  arithmetic  mean  of 
the  random  samples,  that  is: 


jb  .  ro  bnof  i  jq  bni  kolesiU  A  I 
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E  (z 


s 


M(z  -  z  ) 
s  c 


z 

c 


(11-47) 


where 

N 

z  =  1  I 
S  N  i=l 


(11-45) 


N 

z  =  1  Z  z  {i}  (11-46) 

c  —  .  ,  c 
N  1=1 

Accuracy  is  estimated  as  suggested  in  Appendix  A. 

After  200  simulations,  the  expected  cost  of 
uncertainty  was  estimated  to  be  130  dollars  per  day. 

With  a  95%  confidence  level,  the  estimate  falls  within 
the  interval  (130  +  20)  dollars  per  day.  The  standard 
deviation  of  the  cost  of  uncertainty  is  about  140 
dollars  per  day.  The  computer  summary  of  results  appears 
as  Table  18. 

The  cost  of  uncertainty  is  somewhat  lower  than 
the  sensitivity  analysis  on  parameters  would  indicate. 

It  is  just  0.5%  of  the  objective  function  value,  while 
single  critical  parameter  perturbations  resulted  in 
changes  greater  than  4%.  It  is  unlikely  that  this 
is  entirely  a  result  of  interaction  of  deviations.  A 
more  plausible  explanation  is  that  the  low  cost  of 
uncertainty  is  an  indication  of  the  value  of  expressing 
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the  optimal  policy  in  terms  of  a  set  of  guidelines. 

A  computer  printout  of  sample  points  is 
included  in  Appendix  H,  table  H-4„  From  the  tabulation 
it  can  be  seen  that  the  cost  of  uncertainty, (the  regret), 
is  usually  either  negligible  or  on  the  order  of  300 

_7 

dollars  pex  day.  (Values  less  than  about  1.0  x  10 
in  magnitude  are  equivalent  to  zero  due  to  roundoff 
errors) .  This  indicates  that  the  strategy  based  on 
guidelines  was  near  optimal  much  of  the  time,  but 
failed  to  account  for  all  possibilities.  The 
operating  strategy  might  be  improved  by  using 
detailed  information  generated  for  the  simulation 
procedure  to  develop  a  more  versatile  set  of 
guidelines . 

Printouts,  documentation  and  computational 
details  of  programs  written  to  perform  the  cost  of 
uncertainty  estimation  appear  in  Appendix  H. 


, 
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TABLE  18. 

Expected  Cost  Estimation  Results 


RESULTS  OF  MONTt  CARLO  SIMULATION 

NO.  OF  SAMPLFS  TAKEN  =  200 

NO.  OF  SAMPLES  REJECTED  =  0 

EXPECTED  COST  OF  UNCERTAINTY  -  0.133E-03  VAR.  =  0.21E-07 

FXPECTED  COST,  REF.  STRATEGY  =  -0.263E-01  VAR.  -  0.17E-0S 
EXPECTED  COST,  CERTAINTY  =  -0.265E-01  VAR.  -  0.15E-05 

PRECISION,  COST  OF  UNCERTAINTY  ESTIMATE  =  0.20E-04 

CONFIDENCE  LEVEL  REQUESTED  =  0.SS0 


SIMULATION  COMPLETED 
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IV.  DISCUSSION  AND  CONCLUSIONS 


The  use  of  a  macroscopic  system  model  in 
conjunction  with  decision  analysis  techniques  has 
been  suggested  as  a  valid  approach  to  the  problem 
of  optimal  operation  of  an  existing  processing 
system  in  the  face  of  uncertainty. 

A.  The  Butadiene  Process 

The  butadiene  process  case  study  provided 
valuable  insight  into  optimal  operation  of  the  process 
with  a  minimum  of  effort.  Deterministic  optimization 
of  the  nonlinear  process  model  yielded  a  set  of  overall 
operating  conditions  which  could  reduce  the  marginal 
cost  function  for  the  process  by  about  6,000  dollars 
per  day.  A  sensitivity  analysis  pinpointed  those 
system  parameters  which  are  most  critical  to  optimal 
system  operation,  and  showed  that  split  factors  were 
not  critical  in  the  neighborhood  of  the  optimum.  A 
set  of  guidelines  were  developed  which  would  indicate 
near-optimal  operating  conditions  regardless  of  the 
exact  state  of  the  critical  parameters.  An  estimate 
of  the  cost  of  uncertainty  was  made,  showing  that 
little  could  be  gained  by  further  information  gathering. 
The  cost  of  uncertainty  was  lower  than  would  have  been 
expected  from  sensitivity  analysis  results.  This  is 


' 
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an  indication  of  the  effect  of  expressing  the 
strategy  for  operation  in  the  face  of  uncertainty  in 
terms  of  a  set  of  guidelines. 

This  information  forms  an  excellent  base  for 
further,  more  detailed,  optimization  studies.  The 
critical  areas  of  the  process  have  been  identified, 
overall  operating  conditions  for  individual  units  have 
been  specified,  and  any  changes  in  unit  behavior  can 
be  quickly  evaluated. 

B.  General  Application 

The  approach  suggested  here  is  expected  to 
be  generally  applicable  to  a  wide  variety  of  process 
operation  problems.  It  has  the  advantage  of 
providing  needed  information  about  overall  operation 
with  relatively  little  effort.  Hence,  it  provides 
a  good  framework  for  later  suboptimization. 

The  system  model  developed  is  mathematically 
tractable  and  relatively  easily  defined  though  in 
some  cases  it  may  not  be  adequate.  It  should  be 
most  useful  for  large  problems  with  extensive  sections 
of  the  process  classed  as  units;  the  larger  units  are 
more  amenable  to  simple  representation. 

The  simple  sensitivity  analysis  for  system 
parameters  should  be  adequate  for  most  applications. 

In  large  problems  the  number  of  parameters  that  can 
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reasonably  be  sensitized  is  limited.  Prior  knowledge 
of  process  operation  should  be  sufficient  to  indicate 
areas  most  likely  to  be  critical. 

For  most  industrial  problems,  it  would  be 
unrealistic  to  act  as  if  uncertainty  does  not  exist. 

The  definition  of  the  optimal  strategy  in  the  face  of 
uncertainty  in  terms  of  simple  guidelines,  suitable  for 
actual  process  operation,  holds  promise.  The  approach 
is  more  realistic  than  a  straight  forward  specification 
of  operating  conditions,  and  has  the  capability  of 
being  nearer  to  optimal. 

The  estimation  of  the  cost  of  uncertainty  is 
valuable  as  a  quantitative  indication  of  the  additional 
expenditure  warranted  in  an  effort  to  remove  uncertainty 
from  the  model.  Monte  Carlo  simulation  may  appear  to 
be  unreasonably  expensive  for  this  purpose.  This  is 
not  necessarily  so.  As  few  as  25  -  30  simulations 
may  be  adequate,  depending  on  the  accuracy  required  of 
the  estimate. 

As  with  most  optimization  methods,  the  major 
limitation  lies  in  the  fact  that  the  results  of  the 
study  are  valid  only  for  the  model.  They  are  applicable 
to  the  process  only  to  the  extent  that  the  model  is  an 
accurate  representation  of  process  behavior. 


. 
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C.  Future  Work 

The  extension  of  the  present  work  to  dynamic 
system  models  would  be  advantageous.  The  theory  of 
dynamic  input-output  models  used  in  economics,  has 
been  developed  (5) .  The  only  problems  appear  to 
be  handling  variable  split  factors  and  formulating 
the  appropriate  process  model. 

The  extension  of  the  analysis  to  account  for 
uncertainty  in  the  cost  coefficients  and  constraint 
requirements  is  straight  forward.  Though  the 
stochastic  optimization  model  is  more  complex,  the 
same  approach  can  be  used  to  handle  it. 

The  macroscopic  model  could  be  useful  in 
process  design  problems,  both  for  evaluation  of 
alternate  configurations  and  determination  of 
operating  conditions.  It  may  have  some  use  in 
setting  overall  process  unit  characteristics  as  well. 
There,  the  emphasis  would  be  on  determining  the  best 
of  possible  system  parameters. 
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NOMENCLATURE 

a(i,j,k) 

recovery  factor 

A1 
— 1 

recovery  factor  matrix,  i^component 

A1 

recovery  factor  matrix 

B 

coefficient  matrix  for  internal  stream 
transformation  equation 

2f 

marginal  cost  coefficients  of  component 

feed  streams  f 

Sft 

marginal  cost  coefficients  of  feed 

streams  ft 

-fx 

marginal  cost  coefficients  of  feed 

streams  fx 

c 

-g 

marginal  cost  coefficients  of  internal 

streams  g 

c 

-p 

marginal  cost  coefficients  of  product 

streams  p 

c 

-pr 

marginal  cost  coefficients  of  product 

streams  pr 

C1/C2'C3 

cost  coefficients  -  guideline 

optimization  model 

d(i,k) 

product  recovery  factor  for  p(i,k) 

product  recovery  factor  matrix  for  p^ 

D 

product  recovery  factor  matrix  for  £ 

d*  (i  /  j\k) 

product  recovery  factor  for  pr(i,j,k) 

D* 

— 1 

product  recovery  factor  matrix  for  pr^ 

D 

product  recovery  factor  matrix  for  ££ 

' 


' 
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E(  .  ) 

expected  value 

f (i,k) 

ith  component,  external  feed  stream  to 
unit  k 

f . 

— 1 

th 

external  feed  stream  vector  of  i 

component,  f(i,k) 

f 

external  feed  stream  vector  of  f(i,k) 

ft  (k) 

external  feed  stream  to  unit  k 

ft 

external  feed  stream  vector  of  ft  (k) 

fx  (k) 

k*1  external  feed  stream 

f X 

external  feed  stream  vector  of  fx(k) 

g (i ,k) 

ith  component,  internal  feed  stream 
to  unit  k 

% 

th 

internal  feed  stream  vector,  l 

component 

g 

internal  feed  stream  vector 

h (i ,k) 

th 

i  component,  artificial  feed  stream 

to  unit  k 

h. 

— 1 

th 

artificial  feed  stream  vector,  i 

component 

h 

artificial  feed  stream  vector 

I 

identity  matrix 

M(  .  ) 

arithmetic  mean 

m 

no.  of  components 

n 

no.  of  units 

nf 

no.  of  feed  streams 

np 

no.  of  product  streams 

ns 

no.  of  variable  split  factors 

!, 

’ 
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N 

no.  of  random  samples,  Monte  Carlo 

simulation 

P (i,k) 

th 

i  component,  external  product  stream 

from  unit  k 

£i 

th 

external  product  stream  vector  of  1 

component,  p(i,k) 

P 

external  product  stream  vector  of  p(i,k) 

pr (i ,k) 

ith  component,  kth  external  product 
stream 

E£i 

th 

external  product  stream  vector  of  1 

component,  pr(i,k) 

pr 

external  product  stream  vector  of 

pr  (i,k) 

rhs 

requirements  vector,  restriction 

relations 

-f 

matrix  of  coefficients  of  f, 

restriction  relations 

-ft 

matrix  of  coefficients  of  ft, 

restriction  relations 

5fX 

matrix  of  coefficients  of  fx, 

restriction  relations 

R 

-g 

matrix  of  coefficients  of  £, 

restriction  relations 

R 

-p 

matrix  of  coefficients  of  £, 

restriction  relations 

R 

-pr 

matrix  of  coefficients  of  pr , 

restriction  relations 

s (i,q,k) 

reaction  conversion  factor,  component  i 

th 

to  component  q  in  the  k  unit 

■ 

. 

■ 
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s . 

-i,q 

reaction  conversion  factor  matrix, 
component  i  to  component  q 

S 

reaction  conversion  factor  matrix 

sfk 

k^  variable  split  factor 

sf 

vector  of  variable  split  factors 

T 

coefficient  matrix  for  product  stream  £ 
transformation  equation 

T* 

coefficient  matrix  for  product  stream  pr 

y(i/k) 

mass  fraction  of  component  i  in  ft(k) 

Y. 

— 1 

th 

mass  fraction  matrix  for  i  component,  ft 

Y 

mass  fraction  matrix  for  ft 

y*(i,j,k) 

Y* 

— i 

mass  fraction  of  component  i  in  fx(k) 

th 

mass  fraction  matrix  for  i  component,  fx 

Y* 

mass  fraction  matrix  for  fx 

z 

objective  function  value 

z 

c 

objective  function  value  for  S 

c 

Z  {  j  } 

c  J 

z^,  j*"*1  random  sample 

z 

c 

arithmetic  mean,  z  ,  after  N  random 

c 

samples 

z 

s 

objective  function  value  for  S 

z  {  j  } 
s 

zg,  jt51  random  sample 

z 

s 

arithmetic  mean,  z  , after  N  random 

s 

samples 

P  (£) 

probability  of  event  e 

5 

c 

optimal  strategy  under  certainty 

deterministic  strategy  -  specification 
of  system  variables 

' 


. 


s 

s 

Bit  j  > 

X 

4>  (t) 


stochastic  strategy  -  specification 
of  guidelines 
th 

i  critical  parameter,  treated  as 
random  variable 

jth  random  sample  of  $ ^ 

one  half  interval  size,  g ^ 

standardized  cumulative  normal 
probability  distribution 

expected  value,  3^ 


expected  value,  z 
expected  value,  £_ 
expected  value,  g 
expected  value,  £ 
variance,  3^ 
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A-l  CALCULATION  OF  p  (  |  $  -  y 


>  5) 


A- 5 


A-l 


1 .  Accuracy  of  Monte  Carlo  Estimation  of  an 
Expected  Value 


The  following  discussion  of  the  accuracy 
of  Monte  Carlo  estimation  of  expected  value  is  based 
on  material  appearing  in  the  texts  of  Schreider  (28) 
and  Hadley  (30) . 

The  statistic  used  to  estimate  the  expected 
value,  E (x) ,  of  the  random  variable,  x,  is  the 
arithmetic  mean  x  of  N  independent  samples  x(j)  from 
the  probability  distribution  of  x.  The  arithmetic  mean 
is  defined  by 

N 

x  =  1  E  x{i}  (A-l) 

N  i=l 

From  the  central  limit  theorem  of  probability  theory, 
for  large  N  the  distribution  of  the  random  variable  x 
is  approximately  normal.  The  expected  value  and  variance 
of  x  are  give  by 

E  (x)  =  E (x)  =  y  (A-2 ) 

X 

2  2 

a_  =  a  (A- 3) 

x  x 


N 


. 


. 


. 


-  > 


A-2 


It  is  desired  to  specify  that,  with  probability  , 

the  estimate  x  should  fall  within  the  interval 

(y  +6)  .  From  the  definition  of  the  normal  distribution 

X 


p ( |x  -  uxl  >6) 


X 


2 


1-$  (  -  ) 


a— 

x 


If 


(A-4 ) 


6  = 


(A-5) 


then,  (A-4)  can  be  written 

1-0  (ct  )J  (A-6 ) 

Substituting  (A-3)  in  (A-5) ,  the  number  of  samples 
required  can  be  estimated  from 


N  = 


a  o 


x 


6 


2 


(A-7) 


2  . 

Unfortunately,  the  parameter  a  is  not  usually  known; 

X 

it  too  must  be  estimated  in  the  course  of  the  simulation. 

An  unbiased  estimate  of  a  is  the  standard  deviation,  s  , 

x  x 

defined  by 


s 


2 

x 


=  1 
N-l 


N 

2  x{  j  } 
i=l 


t 


N  >  1 


(A-8 ) 


A- 3 


Then,  given  an  initial  estimate  of  s  from  a  few, 
say  30,  samples,  the  number  of  samples  required  can 
be  estimated  from 


N  - 


(A- 9) 


where  s  has  been  substituted  for  a  in  (A-7) . 
x  x 

A  more  convenient  procedure  would  be  to 
continue  sampling  until  the  precision  requirement  is 
satisfied,  that  is 


as 

x 


< 


6 


(A-10 ) 


Given  X  ,  the  confidence  level,  a  is  defined  by  (A-6) . 

Shreider  suggest  that  X  =  0.95,  a  95% 
level  of  confidence,  is  suitable  which  corresponds  to 
a  =  1.96 


•  •  «  1 

■ ' "  M  sal  H  11 


. .  t  .j  ! i .i  jj  ,  ....  .  ,  i  .  a  :  *r 
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2.  Calculation  of  p  ( | 3  —  y |  >6) 

This  calculation  is  based  on  the  definition 
and  table  of  the  standardized  cumulative  normal  distri¬ 
bution  function,  $  (t)  ,  found  in  Hadley's  text  (30). 


P(l®i  '  UB.  1  >  V* 

1  1 


\ 


=  2 


$ 


a 


6. 


i 


(A-ll) 


Table  A-l  details  the  calculation  for  each  3^ 


The  probability  that  a  critical  parameter,  3^, 
would  violate  an  upper  or  lower  bound,  is,  in  the 
worst  case  (3^  34  /  35  ,  3gj  equivalent  to 


p(35  >  1.0)  =  p(35  -  0.9  >  0.1) 


$ 


0.1 


1 


1  -  4(5) 


(A-12) 


A-5 


From  the  table  of  $ (t) , 


$ (t)  =  1.0000  ,  t  >  3.9 


(A-13) 


Hence,  p  ($5  >  1.0)  =  0.0000 


TABLE  A-l 

Calculation  of  p  (  | 3^  -  y ^  |  <  <$ ^  ) 


• 

1 

X 

% 

th ' 

Ki 

( 1 6 i  “  ye  •  1 

l 

1 

0.02 

0.05 

2.5 

0.9938 

0.0124 

2 

0.02 

0.05 

2.5 

0.9938 

0.0124 

3 

0.02 

0.05 

2.5 

0.9938 

0.0124 

4 

0.01 

0.25 

2.5 

0.9938 

0.0124 

5 

0.02 

0.05 

2.5 

0.9938 

0.0124 

6 

0.02 

0.05 

2.5 

0.9938 

0.0124 
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C  MAINLINE  —  E.P. 

C  MAINLINE  —  E.P.  EXPANDED  PROBLEM 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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THIS  PROGRAM  IS  STEP  1  OF  A  TWO  STEP  PROCESS 
OPTIMIZATION  PROCEDURE.  IN  THIS  STEP,  PROCESS  DATA 
ARE  READ  IN  AND  TABLEAU  ENTRIES  GENERATED.  L.P.  IDENT 
-IFICATION  DATA  ARE  READ  IN  AND  THE  L.P.  PROBLEM  IS 
WRITTEN  OUT  (ON  LOGICAL  UNIT  7)  IN  A  FORM  SUITABLE  FOR 
INPUT  TO  IBM'S  MPS/360  MATHEMATICAL  PROGRAMMING 
PACKAGE  . 


-  DEFINITIONS  - 

FX ( K )  -KTH  EXTERNAL  FRESH  FEED 

G(J,K)  -TOTAL  FEED  OF  COMPONENT  J  TO  UNIT  K 

P ( J , K )  -COMPONENT  J  OF  THE  KTH  EXTERNAL  PRODUCT 

X(J)  -THE  VARIABLES  OF  THE  L.P.  PROBLEM 


-  VARIABLE  LIST  - 


INPUT  VARIABLES  - 


A ( I, J,K) 


-FRACTION  OF  G(I,J)  WHICH  GOES  TO  UNIT  K 
-NAGIEV  OR  RECOVERY  FACTOR 


CINS(I,J,K)  -COEFFICIENT  OF  G(J,K)  IN  THE  I TH  CON¬ 
STRAINT 


CON (I) 


CPROD (  I, J,K) 

CREDVAI I , K ) 

D (  I, J,K) 


FBND ( 1,1) 
FB  ND ( 1,2) 


•FRACTION  OF  G ( 1 , 3 )  WHICH  WOULD  BE  CON¬ 
VERTED  TO  (  OR  DISAPPEAR  FROM)  COMPONENT 
I  IN  UNIT  3  IF  THE  SELECTIVITY  OF  THE 
CATALYST  WERE  1.0 

•COEFFICIENT  OF  P(J,K)  IN  THE  I TH  CON¬ 
STRAINT 

•COEFFICIENT  OF  FX(K)  IN  THE  I  TH  CON¬ 
STRAINT 

■FRACTION  OF  G(I,K)  WHICH  LEAVES  THE 
PROCESS  AS  EXTERNAL  PRODUCT  P  (  I , J  ) 

•BOUND  ON  F X  ( I  ) 

•FLAG  INDICATING  TYPE  OF  BOUND 
•SAME  DEFINITION  AS  NBT 
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C  MAINLINE  —  E.P.  ...(CONT’D) 

FDCOST ( I , J )  -COST  OF  COMPONENT  I  OF  FX(J) 


GBND ( I  ,K,  1  ) 
GB ND ( I  *  K  *2  ) 


•BOUND  ON  G  (  I  ,  K  ) 

•FLAG  INDICATING  TYPE  OF  BOUND 
•SAME  AS  NBT 


NCOD  E  (  I  ) 


•FLAG  INDICATING  TYPE  OF  I TH  CONSTRAINT 
-I  -  GREATER  THAN  OR  EQUAL  TO 
0  -  EQUALITY 

+1  -  LESS  THAN  OR  EQUAL  TO 


NCOMP 


-NUMBER  OF  COMPONENTS 


NCON 


NUMBER  OF  CONSTRAINTS  (EXCEPT  MATERIAL 
BALANCE  CONSTRAINTS) 


NG 


•NUMBER  OF  UNITS  -  INCLUDING  STREAM 
SPLITTERS 


NF 

NPRO 


-NUMBER  OF  EXTERNAL  FRESH  FEEDS 


-NUMBER  OF  EXTERNAL  PRODUCT  STREAMS 


PB ND (  I, J  ,1  ) 
PBND ( I  ,  J  ,  2  ) 


•BOUND  ON  P(I,J) 

•TYPE  OF  BOUND  ON  P(I,J) 
•SAME  AS  NBT 


RNGE ( I ) 


-OTHER  LIMIT  ON  RANGE  OF  RHS(I) 


RHS ( I ) 


-RIGHT  HAND  SIDE  OF  CONSTRAINT  I 


SEL 


-SELECTIVITY  OF  CATALYST  IN  UNIT  3 


VA LPRO (  I  ,  J  )  -VALUE  OF  PRODUCT  STREAM  P(I,J) 

Y  {  I ,  J  ,  K  )  -FRACTION  OF  FEED  FX(K),  FED  TO  UNIT  K, 

WHICH  IS  COMPONENT  I 
TABLEAU  VARIABLES  - 


BOUND ( K ) 


-THE  BOUND  ON  THE  K TH  VARIABLE  (COLUMN) 
IN  THE  LINEAR  PROGRAMMING  PROBLEM 


CC( J,K) 


•THE  COEFFICIENT  IN  THE  J  TH  ROW,  KTH 
COLUMN  IN  THE  COEFFICIENT  MATRIX  OF  THE 
SET  OF  CONSTRAINTS 


C  Z  (  K  ) 


•THE  COST  OF  THE  KTH  VARIABLE 
•THE  OBJECTIVE  FUNCTION 


M 


-THE  NUMBER  OF  ROWS  IN  THE  L.P. PROBLEM 


•  a  ,  . .  .  . 


(  ) 


, 


i  r  i  r  .  j-; 

k  H 1 1  ~i  A  — ,  j  - 

Y  !  I  JAU<  -  . 

•  I  IJ  «AHT  J  -  {  + 


H  •  *  ) 

f  f  *  •» 


2T mi/i'j  !.*«  o  <0  -H-  iui/  - 

i  i  y ,  ..  -  i  >*  u  * 

T  U  'J  =m  '  •*;  t j  i - 

m  3  i  ^ -i T x  i  q  S3, 1  ui'  - 

TOUnfiflM  J,  h  M  T  X  3  3fl  flr.fl  UH- 

( i,  ih  )  u  .  - 
(  !  .  j  )  (i  C'*m  7  - 

(  n  ,  :-ii  u-  ,o  iT  U  i  T  * 


♦  L«  I  )  •' 1  ’ 

... 

(  I  )  30W« 
(  I  )  8H>i 


'I  TZY.nrAO  !0  YTIVI  I0*J J32-  y-)£ 

i  ^  f  oi  I  .  -  (  Lt  !  !«'■  4/  / 


f >  *1 T I  >Y 


)  ,‘h  - ■  1  in  >  n  1- 

i  1  ,7  ?  <  -1 

I  .tiu\  l  v  •  I,.  I  !  '  A  | 


■>••.))  -  ax  HT  m  naioc  :  T- 

|>  S  V-  (  >  )(l  XA  -mi  J  IHT  1 1 

1  »  *  -tnT  mi  t  - 1  ji  qq  -10  t- 

imionqqiio  3nr  mi  mmujud 
'  I  1  (AXIVMlO  q.'J  T32 

1  j  i  i  j  *  a  v  »n  -  t  T?n;  ih  t- 


OOO  un* 


IM  )30 


.  .  i  '  I 


r.  noooooooooooooooooooooooooooo  000000  ■>  000000000000 


B-  3 


C  MAINLINE  —  E.P.  ...(CONT'D) 
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C 

C 
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EXCLUDING  THE  OBJECTIVE  FUNCTION  ROW 
-THE  NUMBER  OF  CONSTRAINTS  EXCLUDING 
RANGES  AND  BOUNDS 

N  -THE  NUMBER  OF  COLUMNS  IN  THE  L.P.  PRO¬ 

BLEM  EXCLUDING  LOGICAL  VARIABLES  AND  THE 
RIGHT  HAND  SIDE 

R ( J )  -THE  RIGHT  HAND  SIDE  OF  THE  JTH  CON¬ 

STRAINT 

RANGE ( K )  -IF  R ( K )  MAY  VARY  OVER  A  RANGE  OF  VALUES, 

R ( K )  IS  ONE  LIMIT  ON  THE  RANGE  (UPPER  OR 
LOWER)  AND  RANGE ( K )  IS  THE  MAGNITUDE  BY 
WHICH  THE  RIGHT-HAND  SIDE  MAY  VARY  FROM 
THE  LIMIT  PREVIOUSLY  SPECIFIED 


CONTROL  VARIABLES  - 

MM  -THE  NUMBER  OF  ROWS  CC  IS  DIMENSIONED  FOR 

-USED  FOR  ADJUSTABLE  DIMENSIONS 

NB  -INPUT  FLAG  INDICATING  THE  PRESENCE  OF  A 

BOUND  VECTOR 

NB  =0  -  NO  BOUNDS 

NB  =  1  -  BOUNDS  REQUIRED 

NBT(K)  -FLAG  INDICATING  TYPE  OF  BOUND 

0  -  NO  BOUND  ON  THIS  COLUMN 

1  -  LOWER  BOUND 

2  -  UPPER  BOUND 

3  -  FIXED  VALUE 

4  -  FREE  VARIABLE 

5  -  LOWER  BOUND  IS  -INFINITY 

6  -  UPPER  BOUND  IS  +INFINITY 

NN  -NUMBER  OF  COLUMNS  CC  IS  DIMENSIONED  FOR 

-USED  FOR  ADJUSTABLE  DIMENSIONING 

NR  -INPUT  FLAG  INDICATING  PRESENCE  OF  RANGE 

VECTOR 

NR=0  -  NO  RANGE  VECTOR 

NR= 1  -  RANGE  VECTOR  REQUIRED 

NSIG(K)  -FLAG  INDICATING  THE  TYPE  OF  THE  KTH 

CONSTRAINT  IN  THE  TABLEAU 

-1  -  GREATER  THAN  OR  EQUAL  TO 
0  -  EQUALITY 

+1  -  LESS  THAN  OR  EQUAL  TO 
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C  MAINLINE  —  E.P.  ...(CONT'D) 


THIS  PROGRAM  GENERATES  THE  GENERAL  (EXPANDED)  FORM  OF 
THE  L.P.  PROBLEM. 


PROCESS  DATA  SPECIFICATION 

COMMON  A(4, 15, 15), Y(4, 15, 11), 0(4,6,15), CP ROD (10, 4, 6), 
1C  INS ( 10,4,15) »C RED VA ( 10,11) , FDCOST ( 4, 1 1  )  , 

1 OPCOST (4,15) , VAL  PRO ( 4 ,6 ) ,C ON ( 4 ) , RHS ( 10 ) , R NGE ( 10 ) , 

1GBND (4,15,2) ,PBND (4,6,2 ),FBND( 1 1 , 2 ) , SEL , NCODE ( 10  )  , 
1NC0MP,NPR0,NG,NF,NC0N 

C  L.P.  DATA  SPECIFICATION 

REAL  CC( 100,100) , BOUND! 100  ),R( 100) ,CZ (100 ) , RANGE ( 100) 
INTEGER  NBT( 100  )  ,NS IG ( 100  ) 

MM= 1 00 
NN= 1 00 

C  INPUT  PROCESS  DATA 

CALL  INPUT ( NB ,NR  ) 

C  GENERATE  L.P.  TABLEAU  ENTRIES 

CALL  SFEBDP( CC , R ,C Z ,R ANGE , BOUND ,N BT , NS  I G , NB , NR , M , N , 

1  MM, NN ) 

C  READ  L.P.  IDENTIFICATION  AND  WRITE  GENERATED  L.P.  PROBLEM 
C  IN  MPS  DATA  FORMAT 

CALL  MPSDAT ( CC , R ,CZ ,R ANGE , BOUND ,NBT , NS  I G , NB , NR , M , N , 

1  MM, NN ) 

STOP 

END 
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C  SUBROUTINE  SFEBDP 
C  SUBROUTINE  SFEBDP 
C 

C  SUBROUTINE  SFEBDP  GENERATES  THE  L.P.  COEFFICIENTS  FOR 

C  THE  EXPANDED  FORM  OF  THE  L.P.  PROBLEM.  ALL  VARIABLES 

C  IN  THE  ARGUMENT  LIST  AMD  IN  COMMON  ARE  DEFINED  IN  THE 

C  MAINLINE. 

C 

C 

C  FOR  THE  EXPANDED  PROBLEM 

C  ( X ( J )  » J  =  1 *  N )  =  (FX( J) , J=1,NF ) , 

C  ( (G(K,L),K=l,NCOMP),L=l,NG), 

C  (  (P(K,L  ),K=l,NCOMP) ,L=l,NPRO) 

C 


SUBROUTINE  SFEBDP (CC , R , C Z , RANGE , BOUND, NBT , NS  I G, 
1NB,NR,M,N  ,MM ,NN  ) 


COMMON  A(4,15,15),Y(4,15,11) , D ( 4 , 6 , 1 5 ) , CPROD ( 10,4,6) , 
1C  INS ( 10,4,15) ,CREDVA( 10,11 )  , FDCOS T (4,11) , 

1 OPCOST (4,15) , VALPRO (4 ,6 ) ,CON <4 ) , RHS ( 10 ) , RNGE ( 10 ) , 
1GBND(4,15,2) ,PBND(4,6,2 ) , FBND ( 1 1 , 2 ) , SEL , NCODE ( 10) , 
1NC0MP,NPR0,NG»NF,NC0N 

DIMENSION  CC ( MM , NN ) , BOUND ( NN ) , NBT ( NN ) , R ( MM ) , CZ ( NN ) , 
1RANGE ( MM) ,NSIG (MM) 


500  FORMATt  •  1  •  ,//////13X, • SFEBDP  -  THE  GENERATION  OF 
1*  TABLEAU  FOR  THE  EXPANDED  '/16X,'F0RM  OF  THE  ', 
2'L.P.  PROBLEM.  THE  MATERIAL  BALANCE  EQUATIONS  ', 
4/1H  , 1 5X , ' A  RE  INCLUDED  EXPLICITLY.'/) 

501  FORMATt 1H0,12X, 'THE  INITIALIZATION  OF  THE  TABLEAU 
1  '  TO  ZERO  IS  COMPLETE. ' /1H  ,15X,'THE  PROBLEM  WILL 

2 ' HA VE ' , 1 3 , '  ROWS  (CONSTRAINTS)  AND'/1H  ,15X,I3, 

3'  COLUMNS  (VARIABLES).') 

502  FORMAT( 1H0 , 1 2X , 'THE  OBJECTIVE  FUNCTION  HAS  BEEN  • 
1 'ENTERED* ) 

503  FORMAT( 1H0,12X, 'THE  INEQUALITY  CONSTRAINTS  HAVE  • 
1  'BEEN  ENTERED*  ) 

504  FORMATt 1H0 ,12X,  • THE  MATERIAL  BALANCE 
1 ' THE  INTERNAL  STREAMS '/ 1H  ,15X,'HAVE 

505  FORMAT( 1H0,12X, 'THE  MATERIAL  BALANCE 
1 » THE  PRODUCT  STREAMS  '/1H  ,15X,'HAVE 

506  FORMATt 1H0,12X, 'THE  BOUNDS  HAVE  BEEN 

507  FORMAT (1H0,12X, 'SFEBDP  FINISHED') 


THE 


EQUATIONS  ON  ' 
BEEN  ENTERED'  ) 
EQUATIONS  ON  • 
BEEN  ENTERED* ) 
ENTERED* ) 


WR I T  E ( 6 , 500  ) 
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C  SUBROUTINE  SFEBDP  ...(CONT'D) 
INITIALIZE  TABLEAU  AND  CONTROL  VARIABLES. 


M=NG*NCOMP+NPRO*NCOMP+NCON 
N=NG*NCOMP+NPRO*NCOMP+NF 
DO  10  J=1,M 
NS  I G ( J ) =0 
R ( J  )  =0 . 

RANGE ( J ) =0 . 

DO  20  K  =  1,N 
CC( J,K)=0. 

20  CONTINUE 
10  CONTINUE 
DO  30  J  =  1  y N 
NBT ( J ) =0 
BOUND! J) =0. 

CZ( J)=0. 

30  CONTINUE 

WR I T  E ( 6  y  50 1 )  MtN 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


THE  OBJECTIVE  FUNCTION  HAS  THE  FORM 
MIN  Z  =  SUM  OF  FEED  COSTS  +  SUM  OF  OPERATING  COSTS 
+  SUM  OF  PRODUCT  VALUES 
=  SUM! ( J=1 ,NCOMP ) ,K=1,NF )  FDCOS T ( J , K ) *F ( J t K ) 

+  SUM! ( J=1 yNCOMP ) ,K=1 ,NG )  OPCOST ( J , K ) *G ( J , K ) 

+  SUM! (J=l ,NCOMP ) ,K=1 ,NPRO)  VALPRO(J,K)*P(JyK) 
=  SUM  ( J  —  1 y  N )  CZ(J)*X(J) 

WHERE  F(JyK)  =  (SUM  (L=1»NG)  Y ( J  ,  L, K )  )*FX ( K) 

CALCULATION  OF  CZ!J) 

FEED  STREAM  COEFFICIENTS 


DO  100  J=1 yNCOMP 
DO  100  K=1 ,NF 
SUM  =  0 

DO  90  L  =  1  ,NG 
90  SUM=SUM+Y(JyLyK) 

CZ(K)=CZ( K)+FDCOST( J,K )*SUM 
100  CONTINUE 

C  INTERNAL  STREAM  COEFFICIENTS 


NV  =  NF 

DO  120  K=1 »NG 
DO  120  J=1 yNCOMP 
NV=NV+ 1 

CZ( NV)=OPCOST  < J,K  ) 
120  CONTINUE 
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C  SUBROUTINE  SFEBDP  ...(CONT'D) 

C  PRODUCT  STREAM  COEFFICIENTS 

DO  140  K=1,NPR0 
DO  140  J=1 ,  NCOMP 
NV=NV+ 1 

CZ(NV)=-VALPRO(J,K) 

140  CONTINUE 

WR  I T E  (  6,  502  ) 

WRITE(6,502 ) 

THE  JJTH  PROCESS  OR  IMPLIED  CONSTRAINT  HAS  THE  FORM 
RHS(JJ)  (.LE.  ,  .EO.  ,  OR  .GE.  ) 

SUM  ( K  =  1 ,  NF )  CREDVA( J,K)*FX(K) 

+  SUM  (  ( L  =  1 , NCOMP ) ,K=1,NG)  C I NS ( J , L , K ) *G ( L , K ) 

+  SUM  (( L  =  1 , NCOMP ) ,K=1,NPR0)  CPROD ( J , L, K ) *P ( L , K  ) 
(.GE.  t  .EO.  ,  OR  .LE.)  RNGE(JJ) 

OR 

RHS(JJ)  (.LE.y.EO.,  OR.GE.)  SUM  (K=1,N)  CC(JJ,K)*X(K) 
(.GE.,  .EQ.y  OR  .LE.)  RANGE ( J J ) 

WHERE 

J J  =  1 , NC  ON 

CALCULATION  OF  CC(JJ,N) 


NE=NCON 

IF(NCON)  235,235,195 
195  DO  230  J=1 , NC  ON 
DO  200  K  =  1  ,NF 
CC( J,K)=CREDVA(J,K) 

200  CONTINUE 
NV  =  NF 

DO  210  K=1 ,NG 
DO  210  L  =1 , NC  OMP 
NV=NV+ 1 

CC( J,NV) =CINS ( J,L ,K) 

210  CONTINUE 

NV  =  NF+  NC  OMP^NG 
DO  220  K  =  1  ,NPRO 
DO  220  L  =1 , NCOMP 
NV=NV+ 1 

CC(J,NV)=CPROD(J,L,K) 

220  CONTINUE 
230  CONTINUE 

CALCULATE  THE  RHS ' S , CONSTR AI NT  TYPES  AND  RANGES 


235  DO  236  J=1,NC0N 
R ( J ) =RHS ( J ) 
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C  SUBROUTINE  SFEBDP  ...(CONT'D) 

NS  I G ( J ) =NCODE ( J ) 

236  CONTINUE 

IF(NR)  239,239,237 

237  DO  238  J=1 ,NCON 
RANGE! J ) =RNGE { J ) 

238  CONTINUE 
WRITE! 6,503 ) 

C  MATERIAL  BALANCE  EQUATIONS 

C 

C 

C  THE  JJTH  MATERIAL  BALANCE  EQUATION  ON  THE  INTERNAL 

C  STREAMS  HAS  THE  FORM 

C  0  =  -SUM  ( L  =1 , NF )  Y (K,J,L )  *F  X  (  L  ) 

C  +G( K , J )  -SUM  ( L  =  1 , NG  )  A ( K , L , J  )  *G ( K , L  ) 

C  =  SUM  { L  =  1  ,N )  CC ( JJ  ,L )*X (L ) 

C  WHERE 

C  ! JJ=NCON, ( NCON+NG*NCOMP ) )  -  ( ( K= 1 , NCOMP ) , J= 1 , NG ) 

C 

C  CALCULATION  OF  CC(JJ,L) 

C 

239  DO  250  J=1,NG 

DO  250  K=l, NCOMP 
NE=NE+ 1 

C  FEED  STREAM  COEFFICIENTS 

DO  240  L  =  1 ,NF 

IF! ABS(Y(K,J  ,L  )) .LT. 0.000001 )  GOTO  240 
CC(NE,L )=-Y(K,J  ,L  ) 

240  CONTINUE 


C  INTERNAL  STREAM  COEFFICIENTS 

DO  245  L  =  1  ,NG 
NV=NF+NCOMP£ (L-l ) +K 

IF(ABS( A(K,L,J) ).LT. 0.000001)  GOTO  242 
CC(NE,NV)=-A(K,L,J ) 

242  IF(L-J)  245,243,245 

243  CC(NE,NV)=CC(NE,NV)+1. 

245  CONTINUE 

IF  THE  PROCESS  CONTAINS  A  REACTION  VESSAL,  THE 
ADDITION  OF  A  COMPONENT  MUST  BE  PROVIDED  FOR  BY  THE 
USE  OF  A  PHANTOM  FEED  STREAM. 

FOR  THIS  PLANT,  REACTION  OCCURS  IN  UNIT  3  SO  A  PHANTOM 
FEED  IS  ADDED  AT  UNIT  3.  THE  AMOUNT  OF  COMPONENT  K 
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C  SUBROUTINE  SFEBDP  ...(CONT'D) 
ADDED  =  CON(K)*SEL*G(  1,3  ) 


I F ( J-4 )  250,246,250 
246  NV=NF+2*NC0MP+1 

CC(NE,NV) =CC  (NE,NV )-A (K  ,3, J ) *SE L*C0N ( K ) 

250  CONTINUE 

WR ITE( 6, 504) 

THE  JJTH  MATERIAL  BALANCE  EQUATION  ON  THE  PRODUCT 
STREAMS  HAS  THE  FORM 

0  =  P(K,J)  -  SUM  ( L= 1 ,NG )  D(K,J,L)*G(K,L) 

=  SUM  (L=1,N)  CC(JJ,L)*X(L) 

WHERE 

( JJ=( NCON+NG*NCOMP ) ,M)  -  ( ( K= 1 , NCOMP ) , J= 1 , NPRO ) 
CALCULATION  OF  CC(JJ,L) 


DO  280  J=I , NPRO 
DO  280  K=l, NCOMP 
NE=NE+ I 

INTERNAL  STREAM  COEFFICIENTS 

DO  260  L  =1 , NG 
NV=NF+NCOMP*( L-l )+K 

IF ( ABS ( D(K ,J ,L )) .LT. 0.00001 )  GOTO  260 
CC(NE,NV) =-D  (  K  »  J  ,  L  ) 

260  CONTINUE 

PRODUCT  STREAM  COEFFICIENTS 

NV=NF+NCOMP*NG+NCOMP*( J-l ) +K 
CC ( NE , NV ) =1 • 

280  CONTINUE 

WR IT  E ( 6 , 505 ) 

THE  BOUND  VECTOR  LISTS  THE  BOUNDS  ON  THE  VARIABLES 
X ( J ) .  THE  CONTROL  VECTOR  NBT  INDICATES  THE  TYPE  OF 
BOUND  ON  X(J).  IT'S  FORM  IS  EXPLAINED  IN  THE 
MAINLINE  DEFINITION. 

CALCULATION  OF  BOUNDS,  NBT  VECTORS. 


289  IF(NB)  321,321,290 
C  FEED  STREAM  BOUNDS 
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C  SUBROUTINE  SFEBDP  ...(CONT'D) 

290  DO  300  J  =  1  ,NF 

BOUND! J) =FBND(J,1 ) 

NBT ( J ) =FBND( J  »2  ) 

300  CONTINUE 

C  INTERNAL  STREAM  BOUNDS 

NV  =  NF 

DO  310  J  =  1,NG 
DO  310  L  =1 »  NC  OMP 
NV=NV+ 1 

BOUND! NV ) =GBND (L  *  J  » 1 ) 

NBT (NV)=GBND(L»J»2 ) 

310  CONTINUE 

C  PRODUCT  STREAM  BOUNDS 

DO  320  J  =1  * NPRO 
DO  320  L=1,NC0MP 
NV=NV+ 1 

BOUND! NV) =PBND(L  *  J  » 1 ) 

NBT(NV)=PBND(L,J,2 ) 

320  CONTINUE 
WRITE! 6 *  506 ) 

321  CONTINUE 
WRITE! 6*  507 ) 

RETURN 

END 
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C  SUBROUTINE  MPSDAT 
C  SUBROUTINE  MPSDAT 


SUBROUTINE  MPSDAT  READS  IN  PARAMETER  IDENTIFICATION 
INFORMATION  (ROW  NAMES  ETC)  AND  WRITES  THE  L.P. 
PROBLEM  IN  A  FORM  SUITABLE  FOR  INPUT  TO  MPS/360 

THE  FUNCTION  L  INCT  IS  USED  TO  CONTROL  THE  LINE  COUNT 
ON  THE  PRINTED  OUTPUT. 


SUBROUTINE  MPS DAT ( CON ,RH ,C Z , R A , BN , NBT , S I G , NB , NR , 
1M,N,MM,NN ) 


REAL  CON( MM ,NN ) ,RH (MM ) ,CZ { NN ) ,RA(MM ) , BN(  NN ) 

INTEGER  SIG(MM) ,NBT(NN ) 

INTEGER  NMP ( 5  » 8 ) 

REAL  RT(4)/'N','G','E','L'/,BT(6)/«L0','UP»,'FX','FR', 
l'MI* , • PL*/ 

DIMENSION  RNME( 120,2 ) ,CNME( 200,2) , R ANM ( 2) , BNNM ( 2 ) , 

1  OB J  NME ( 2 ) »RHSNME (2 ) , DSNME ( 2) 

DATA  ROWS  ,COLU »  MNS , RHS ,R ANG , E S , BOUN , DS , ENDA , TA , NA ME/ 

1 ‘ROWS ' , *COLU*  ,  'MNS  ' ,  'RHS • ,  'RANG  * , • E S ' , • BOUN' , ' DS' , 

2' ENDA* , 'TA' , 'NAME'/ 


605  F0RMAT(21X,A2,1X,2A4,2X,2A4»2X,F12.6) 

105  FORMAT ( IX , A2 , 1 X , 2A4 ,2X , 2 A4 , 2X , F 1 2 . 6 ) 
604  F0RMAT(21X,A2,1X,2A4,2X,2A4,2X,G16.6) 
104  FORMAT ( 1X,A2,1X,2A4,2X,2A4,2X,G16.6) 
603  FORMAT (24X,2A4,2X,2A4,2X,F12.6) 

103  FORMAT ( 4X , 2A4 , 2 X , 2 A4 ,2 X , F 1 2 . 6 ) 

607  FORMAT (24X,A4,T35,2A4,T60, 2A4) 

107  FORMAT ( 4X ,A4,T1 5,2A4,T40, 2A4 ) 

602  FORMAT (24X,2A4,2X,2A4,2X,G16.6) 

102  F0RMAT(4X,2A4,2X,2A4,2X,G16.6) 

601  FORMAT ( 2 1 X , A 1 ,2X,2A4) 

101  FORMAT ( IX, A1 ,2X,2A4) 

600  F0RMAT(20X,2A4) 

106  F0RMAT(A4,T15,2A4) 

606  FORMAT (20X,A4,T35,2A4) 

100  FORMAT ( 2A 4 ) 

10  FORMAT ( 2 X , 2 A4 ) 

500  FORMAT ( 5A4 ) 


NLT=L I NCT ( 52 ,0 ) 
NLT  =  L I NCT ( NLT ,3  ) 
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C  SUBROUTINE  MPSDAT  ...(CONT'D) 
READ  AND  PUNCH  DATA  SET  NAME 


READ( 5,10) ( DSNME ( K ) ,K=1,2) 

WRITE! 7, 106)  NAME, ( DSNME (K ) ,K=1, 2 ) 

WRITE! 6,606)  NAME, ( DSNME ( K ) , K=1 , 2 ) 

READ  ROW  NAMES,  COLUMN  NAMES  AND  OBJECTIVE  FUNCTION 
NAME. 


READ! 5, 10) ( RNME (J,1),RNME(J»2),J=1,M) 
READ! 5, 10) ( CNME ( J , 1 ) ,CNME ( J , 2 ) , J= 1 ,N  ) 
READ! 5,10)  OBJNME (1 ) ,OBJNME( 2) 

PUNCH  ROWS  SECTION 


WRITE(7,100)  ROWS 
WRITE! 6, 600 )  ROWS 

WRITE! 7, 101)  RT ( 1 ) , ( OBJNME ( J ) , J=1 , 2 ) 

WRITE! 6,601)  RT ( 1  )  , ( OBJNME ( J ) , J= 1 »  2 ) 

DO  200  J  =  1 , M 
NLT=LINCT( NLT ,1 ) 

WRITE! 7, 101)  RT (3+SIG! J)  ), ( RNME ( J , K ) , K= 1 , 2 ) 
WRITE (6, 601)  RT (3+SIG! J ) ) , ( RNME ( J , K ) , K= 1 , 2 ) 
200  CONTINUE 

C  PUNCH  COLUMNS  SECTION. 


WR I T  E ( 7, 1 00 )  C  OLU , MNS 
NLT  =  L I NCT ( NLT  ,  1  ) 

WR ITE ( 6, 600 )  C  OLU , MNS 
DO  210  J=1,N 

IF(ABS(CZ( J) ) .LT.1.0E-06)  GOTO  202 
NLT  =  L I NCT (NLT  ,  1  ) 

IF! ABS!CZ( J)  ) .LT. 0.1000001  )  GOTO  201 

WRITE!7,102)  (CNME(J,K) ,  K  =  1 , 2  )  » (OBJNME(K) »  K= 1 , 2 ) ,CZ(J  ) 
WR ITE! 6,602 )  (CNME (J,K),K  =  1,2), (OBJNME (K) , K= 1 , 2 ) »  CZ ( J ) 
GOTO  202 

201  WRITE! 7, 103) (CNME ( J ,K ) ,K=1 , 2 ) , ( OBJNME ( K ), K= 1 , 2 ), CZ ( J ) 
WRITE! 6,603) (CNME! J ,K ) ,K  =  1, 2) ,  (OBJNME! K) , K= 1 , 2 ) , CZ ( J  ) 

202  DO  205  K  =  1 , M 

IF(ABS(CON(K,J ) ).LT .1.0E—06  )  GOTO  205 
NLT  =  LINCT!NLT  ,1) 

IF! ABS(CON(K,J  )  ).LT. 0.1000001)  GOTO  206 

WR ITE! 7, 102 ) (CNME ( J,L ) ,L=1,2 ) , (RNME (K, L ) , L=l, 2) , 

ICON ( K, J ) 

WRITE (6, 602) (CNME(J,L),L=1,2), ( RNME ( K , L ) , L= 1 , 2 ) , 
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C  SUBROUTINE  MPSDAT  ...(CONT'D) 

ICON ( K, J ) 

GOTO  205 

206  WRITE(7,103)(CNME(J,L),L=1,2), ( RNME ( K, L ) , L= 1 , 2 ) , 
ICON (  K »  J  ) 

WRITE (6, 603)  (CNME(J,L)  ,L=1,2), ( RNME ( K, L ) , L=1 , 2  )  , 
1  CON ( K , J ) 

205  CONTINUE 
210  CONTINUE 

PUNCH  RHS  SECTION. 


215  WR I T  E ( 7  » 1 00 )  RHS 
NLT  =  L  INCT( NLT ,1 ) 

WR IT  E ( 6 ,600 )  RHS 

READ ( 5  » 1 0 )  RHSNME (1 ) , RHSNME ( 2) 


DO  240  J  =  1,M 
I  F ( J.EQ. 1)  GOTO  220 
IF(ABS(RH( J) ) .LT.1.0E-06)  GOTO  240 
220  NLT  =  L INCT( NLT  ,1  ) 

IF(ABS(RH( J) ) .LT. 0.1000001)  GOTO  230 
WRITE! 7, 102)  (RHSNME (K) , K= 1 , 2 ) , ( RNME ( J , K ) , K= 1 , 2 ) , 
1RH ( J ) 

WRITE (6,602)  (RHSNME ( K ) , K= 1 , 2 ) , ( RNME ( J , K ) , K= 1 , 2 ) , 
1RH ( J ) 

GOTO  240 

230  WR IT  E ( 7 , 103 )  ( RHS NME ( K  )  , K  =  1 , 2 ) , ( RNME ( J , K ) , K  =  1 , 2 )  , 
1RH ( J ) 

WRITE (6,603)  ( RHSNME ( K ), K  =  1 , 2 ) , ( RNME ( J , K ) , K  =  1 , 2 ) , 

1RH ( J ) 

240  CONTINUE 


PUNCH  RANGES  SECTION. 


IF(NR)  300,300,250 

250  WR IT  E ( 7 , 1 00 )  RANG , ES 
NLT=LINCT(NLT ,1) 

WR I T  E ( 6 , 600 )  RANG , ES 
READ( 5, 10)  RANM ( 1  )  , R ANM ( 2 ) 

DO  255  K=1,M 

IF(K.EQ. 1)  GOTO  251 

IF(ABS(RA(K) ) .LT.1.0E-06)  GOTO  255 

251  NLT=L INCT( NLT , 1 ) 

IF(ABS(RA(K) ) .LT. 0.1000001 )  GOTO  252 

WRITE ( 7, 102 )  (RANM(L  )  ,L  =  1, 2) , (RNME (K,L)»L=1,2)»RA(K) 
WRITE! 6,602)  ( RANM ( L ) , L=1 , 2 ) , (RNME (K,L ) , L= 1 , 2 ) , R A ( K ) 

GOTO  255 

252  WR I T  E ( 7 , 1 03 )  ( RANM ( L ) , L  =  1 , 2 ) ,  ( RNME ( K , L ) , L=1 , 2 ) ,R A ( K ) 

WRITE( 6,603 )  ( RANM ( L ) , L = 1 , 2 ) , (RNME (K,L),L=1,2),RA(K) 
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C  SUBROUTINE  MPSDAT  ...(CONT'D) 
255  CONTINUE 

PUNCH  BOUNDS  SECTION. 


300  IF(MB)  350*350*310 
310  WRITE! 7, 100)  B0UN,DS 
Nl_T  =  L  I NCT  (  NLT  ,  1  ) 

WRITE! 6, 600 )  B0UN,DS 
READ! 5, 10) { BNNM ( K ) ,K  =  1,2  ) 

DO  330  K  =1  * N 
IF(K.EQ.l)  GOTO  315 
I F ( NBT ( K ) • L  E .0 )  GOTO  330 
315  NLT  =  L I NCT (NLT ,  1  ) 

IF! ABS(BN!K) ) .LT. 0.1000001 )  GOTO  320 

WRITE (7, 104) BT (NBT (K) ) , ( BNNM ( L ) , L=1 , 2 ) , ( CNM  E ( K  *  L ) * 

1  L- 1 , 2  )  ,  BN!  K  ) 

WRITE! 6,604) BT ( NBT (K) ) , ( BNNM ( L ) t L= 1  *  2 ) , ( CNM E ( K , L ) * 

1 L= 1 , 2 ) ,BN( K ) 

GOTO  330 

320  WRITE(7,105)BT (NBT !K) ),  ( BNNM ( L ) , L= 1 , 2 ) , ( C NME ( K, L ) , 

1 L=1 , 2 ) , BN ( K ) 

WRITE(6,605)BT (NBT (K ) ), ( BNNM ( L ) , L= 1 , 2 ) , ( C NME ( K*  L ) , 

1L  =  1 *  2 ) , BN ( K ) 

330  CONTINUE 

350  WR IT  E ( 7 , 100 )  ENDA , T  A 
NLT=LINCT(NLT ,1) 

WR I T  E ( 6  *  600 )  ENDA , T  A 

IF  FILE  7  IS  TO  BE  STORED  FOR  LATER  INPUT  TO  MPS 
RATHER  THAN  ROUTED  TO  SYSPUNCH,  INCLUDE  THE  FOLLOWING 
TWO  STATEMENTS. 

END  FILE  7 
REWIND  7 


RETURN 

END 
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C  FUNCTION  LINCT 

C  FUNCTION  LINCT 

THE  FUNCTION  LINCT  IS  USED  TO  CONTROL  THE  NUMBER  OF 
LINES  PRINTED. 


FUNCTION  LINCT (NLT ,NL ) 
L I NCT=NLT+NL 
I F ( L I NC  T-5 1 )  15,15,10 

10  WRITE! 6, 11 ) 

11  FORMAT!  » 1 «  ,/////  ) 

L I NCT=0 

15  RETURN 
END 
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C  MAINLINE  —  R.P. 

C  MAINLINE  —  R.P.  REDUCED  PROBLEM 

THIS  PROGRAM  GENERATES  THE  REDUCED  FORM  OF  THE  L.P. 
PROBLEM 

VARIABLES  ARE  AS  DEFINED  FOR  MAINLINE  —  E.P. 


PROCESS  DATA  SPECIFICATION 

COMMON  A(4,15,15),Y(4,15,11),D(4,6,15) ,CPROD( 10,4,6) , 
1C  INS ( 10,4,1 5) , CRED VA (10,11 ) ,FDCOST(  4,  11  )  , 

10PC0ST( 4, 15) , VA L PRO (4,6) ,CON ( 4 ) ,RHS( 10 ) ,RNGE ( 10 )  , 
1GBND(4, 15,2 ) ,PBND (4,6 ,2 ) ,FBND( 11 ,2 ) , S EL , NCOD E ( 10 )  , 
1NC0MP,NPR0,NG,NF,NC0N 

L.P.  DATA  SPECIFICATION 

DIMENSION  CC ( 15,11 ) ,R( 15 ) ,CZ ( 11), RANGE ( 15) , BOUND ( 11  )  , 
lNBT(ll), NS  16(15) 

MM=  1  5 
NN=  1 1 

INPUT  PROCESS  DATA 
CALL  INPUT ( NB ,NR ) 

INVERT  B  MATRIX 
CALL  BALAN 

GENERATE  L.P.  TABLEAU  ENTRIES 

CALL  S FCBDP ( CC ,R ,CZ , RANGE , BOUND , NBT ,N SIG , NB , 

1 M , N , MM , NN ) 

READ  L.P.  IDENTIFICATION  AND  WRITE  GENERATED  L.P. 
PROBLEM  IN  MPS  DATA  FORMAT 

CALL  MPSDAT ( CC ,R ,CZ , RANGE , BOUND , NBT, N SIG, NB, NR, 

1 M  ,  N ,  MM ,  NN  ) 

STOP 

END 
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SUBROUTINE  BALAN 
SUBROUTINE  BALAN 

SUBROUTINE  BALAN  INVERTS  THE  MATERIAL  BALANCE  MATRIX 
B.  USING  THE  INVERSE  IT  CALCULATES  THE  MATRICES  BIF 
AND  PBIF  WHICH  ARE  USED  TO  EXPRESS  G(J,K)  AND  P(J,K) 
AS  LINEAR  COMBINATIONS  OF  THE  FEED  STREAMS  FX(K). 


COMMON  A(4,15,15),Y(4,15,11),D(4,6,15) ,CPROD( 10,4,6) , 

1 C INS ( 10,4,15) ,CREDVA ( 10, 11 )  ,FDCOST( 4, 11 )  , 
lOPCOSTt  4, 15) , VA L PRO ( 4 , 6 ) ,C0N(4 ) ,RHS( 10 ) ,RNGE( 10 ) , 
1GBND(4,15,2 ) ,PBND (4,6,2 ),FBND( 11,2) ,SEL,NCODE( 10), 
1NC0MP,NPR0,NG,NF,NC0N 
COMMON  /BAL/  B  IF ( 60 , 1 1 ) , P B I F ( 24 , 1 1 ) 

REAL  B( 60 ,60) ,WV1 (60 ) , WV2 (60 ) 

1  FORMAT( ' 1 ',////// tl3X, 'BALAN  -  USES  THE  MATERIAL  ', 
IMBALANCE  EQUATIONS  TO  SOLVE  FOR ' / 16X , ' TH E  INTERNAL  ', 

3 ' AND  PRODUCT  STREAMS  AS  FUNCTIONS  OF  THE  ',/lH  ,15X, 

4' FRESH  FEED  STREAMS.  THESE  FUNCTIONS  ARE  REQUIRED  ', 

5 • LATER  '  ,  /  1  H  ,15X,  'BY  SFCBDP',/) 

2  FORMAT( 1H0,12X, 'THE  MATERIAL  BALANCE  MATRIX  B  HAS  ', 

1 'BEEN  SET  UP' ) 

3  FORMAT( 1H0,12X, 'B  HAS  BEEN  INVERTED') 

4  FORMAT ( 1H0,12X, 'THE  MATRIX  BIF  DEFINING  THE  INTERNAL', 
1*  STREAMS  AS  FUNCTIONS  '/1H  ,15X,'0F  THE  FRESH  FEEDS', 
2'  HAS  BEEN  GENERATED' ) 

5  FORMAT(  1H0»12X, 'THE  MATRIX  PBIF  DEFINING  THE  PRODUCT', 
1*  STREAMS  AS  FUNCTIONS  '/1H  ,15X,'0F  THE  FRESH  FEEDS', 
2  •  HAS  BEEN  GENERATED' ) 

6  FORMATt 1H0,12X, 'BALAN  FINISHED') 

WR  IT  E  (  6 , 1  ) 

THE  MATERIAL  BALANCE  MATRIX  B  HAS  THE  FORM  (I  -AT) 
WHERE  I  IS  AN  IDENTITY  MATRIX  OF  ORDER  NG-NCOMP 
AT  IS  THE  TRANSPOSE  OF  THE  NAGIEV  RECOVERY 
FACTOR  MATRIX.  A(J,L,K)  IS  THE  ELEMENT  IN 
THE  I ITH  ROW  AND  JJTH  COLUMN  OF  AT 
II  =  (K-l  )*NCOMP  +  J 
JJ  =  (L-l )*NCOMP+J 

CALCULATION  OF  B 


DO  35  J  =  1 ,60 
DO  35  K  =  1 ,60 
B ( J , K ) =0. 

35  CONTINUE 
NE  =  0 

DO  50  K  =  1  ,NG 
DO  50  J=1 , NCOMP 
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SUBROUTINE  BALAN  ...(CONT'D) 


NE=NE+ 1 
DO  45  L  =  1 ,  NG 
NV= ( L-l )*NCOMP+J 
B ( NE , NV ) =-A( J ,L,K ) 

IF(K-L)  45,40,45 
40  B( NE,NV) =B( NE,NV )+l. 

45  CONTINUE 
50  CONTINUE 

PRODUCTION  VIA  REACTION  IN  UNIT  3  IS  ACCOUNTED  FOR 
BY  THE  ADDITION  OF  A  PHANTOM  FEED  TO  UNIT  3 
=  CON! J)*SEL*G( 1,3) 

FOR  THE  JTH  COMPONENT 


DO  54  J=1 , NCOMP 
NE  =  NCOMP5M3)+J 
NV=NCOMP*{ 2)  +  l 

B(NE,NV)=B(NE,NV)-A(J,3,4)*C0N( J) 

54  CONTINUE 
WR  IT  E  (  6 , 2  ) 

THE  MATRIX  B  IS  INVERTED  USING  THE  SUBROUTINE  MINV 
FROM  IBM'S  SCIENTIFIC  SUBROUTINE  PACKAGE.  THE  ROUTINE 
RETURNS  THE  INVERSE  AS  B. 


160=60 

CALL  MINV (B , 160  ,DET  ,WV1 ,WV2 ) 

WRITE! 6,3) 

IF(DET)  60,55,60 
55  WR IT E ( 6, 655 ) 

655  FORMAT! 1H0,12X, 'NO  INVERSE') 

RETURN 

THE  MATERIAL  BALANCE  ON  INTERNAL  STREAMS  HAS  THE  FORM 
G ( L , K )  =  SUM ( J  =1 ,NF )  (SUM  (( LL  =  1 , NCOMP ), KK  =  1 , NG ) 

B (NE,NV )*Y (LL,KK, J)  )*FX(J) 

=  SUM  { J  =1 »NF )  BIF(NE,J)*FX(J) 

WHERE 

(NE=1 ,NG*NCOMP)  =  (( L=1 , NCOMP ), K=1 , NG ) 
(NV=1,NG*NC0MP)  =  (( LL=1 , NCOMP ) ,KK=1, NG ) 

CALCULATION  OF  BIF 


60  DO  68  J  =  1  ,NF 
NE  =0 

DO  65  K  =  1  ,NG 
DO  65  L=l, NCOMP 
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SUBROUTINE  BALAN  ...(CONT'D) 


NE=NE+ 1 
NV  =  0 

BIFtNE, J)=0. 

DO  65  KK  =1 , NG 
DO  65  LL=1 ,NCOMP 
NV=NV+ 1 

BIF(NE, J) =BIF(NE,J ) +B (NE,NV )*Y ( LL,KK, J) 

65  CONTINUE 
68  CONTINUE 
WRITE! 6,4) 

THE  MATERIAL  BALANCE  ON  PRODUCT  STREAMS  HAS  THE  FORM 
P(L,K)  =  SUM ( J  =  1 »NF )  (  SUM ( KK= 1 , NG )  D(L,K,KK)* 

BIF(NV,J)  )*FX(J) 

=  SUM ( J  =1 »NF  )  PBIF(NE, J)*FX( K) 

WHERE 

( NE=1 ,NG*NCOMP )  =  ( ( L=18NCOMP ) , K= 1 , NG ) 

(NV=1 ,NG*NCOMP)  =  ( (LL=l,NCOMP),KK=l,NG) 

CALCULATION  OF  PBIF 


DO  80  J=1 ,NF 
DO  62  K  =  1  ,24 
62  PB  I  F  (  K ,  J  )  =0  • 

NE  =  0 

DO  70  K  =  1 , N PRO 
DO  70  L=1 , NCOMP 
NE  =  NE+  1 
NV=L-NCOMP 
DO  70  KK  =1 , NG 
NV  =  NV+NCOM  P 

PBIF(NE,J)=PBIF(NE,J )+D(L,K,KK)*BIF(NV,J) 
70  CONTINUE 
80  CONTINUE 
WR I T  E ( 6 , 5  ) 

WR ITE ( 6, 6 ) 

RETURN 

END 
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C  SUBROUTINE  SFCBDP 
C  SUBROUTINE  SFCBDP 

SUBROUTINE  SFCBDP  GENERATES  THE  L.P.  COEFFICIENTS  FOR 
THE  CONTRACTED  FORM  OF  THE  L.P.  PROBLEM.  ALL  VARI¬ 
ABLES  IN  THE  ARGUMENT  LIST  AND  IN  COMMON  ARE  DEFINED 
IN  THE  MAINLINE. 

FOR  THE  CONTRACTED  PROBLEM 
X ( J ) =F  X ( J )  (J=1,NF) 

G(J,K)  =  SUM ( L  =  1 , NF )  B  I F ( NE , L  )  *FX ( L ) 

P(J,K)  =  SUM ( L  =  1 »NF  )  PBIF(NE,L)*FX(L) 

WHERE  (NE=1 ,NG*NCOMP)=( ( J= 1 , NCOMP ) , K= 1 , NG ) 

THE  MATRICES  BIF  AND  PBIF  HAVE  BEEN  GENERATED  BY  BALAN 


SUB ROUT INE  S FCB DP ( CC , R ,C Z ,R ANGE , BOUN D, NB T , NS  I G , 
1NB,M,N,MM,NN) 


COMMON  A(4,15,15),Y(4,15,11),D(4,6,15) ,  CPROD ( 10 , 4 , 6 ) , 
1C  INS ( 10,4,15)  ,CREDVA ( 10, 11 ) ,FDCOST( 4, 11), 

10PC0ST (4,15) ,VALPR0(4,6) ,CON (4 ) ,RHS( 10) ,RNGE( 10) , 

1 GB  ND ( 4, 1 5 , 2 ) ,PBND (4,6,2 ) ,F BND (11 , 2 ) , S EL, NCODE ( 10 ) , 
1NC0MP,NPR0 ,NG,NF ,NCON 
COMMON  /BAL/  B  IF ( 60 , 1 1 ) , P B  I F ( 24 , 1 1 ) 

DIMENSION  CC (MM ,NN ) ,R ( MM ) ,CZ (NN ) , RANGE ( MM ) , NS  I G ( MM ) , 

1  BOUND ( NN ) ,NBT (NN ) 


1  FORMAT(  •  1 ',////// tl3X,  'SFCBDP  -  THE  GENERATION  OF  ', 

1»  THE  L.P.  PROBLEM.  THE  I  NT ERNA L • / 16 X , • A ND  PRODUCT  ', 
3 • STREAMS  ARE  ELIMINATED  BY  SUBSTITUTION  OF  THE  ', 
4/16X, • FUNCT IONS  OF  FRESH  FEEDS  GENERATED  BY  BALAN.') 

2  FORMAT! 1H0,12X, 'THE  OBJECTIVE  FUNCTION  HAS  BEEN  ', 

1 ' GENERAT  ED  AS  A  FUNCTION  • /1H  ,15X,'0F  FRESH  FEEDS  ', 

3 'ONLY' ) 

3  FORMAT( 1H0,12X,  'THE  INEQUALITY  CONSTRAINTS  HAVE  ', 

2 ' BEEN  GENERATED  AS  FUNCTIONS  ',/lH  ,15X,'0F  FRESH  ', 

2' FEEDS  ONLY' ) 

4  FORMAT ( 1H0  » 1 2X ,  'THE  BOUNDS  ON  THE  FRESH  FEEDS  HAVE', 

1'  BEEN  ENTERED.  BOUNDS  '/1H  ,15X,'0N  INTERNAL  AND', 

2*  PRODUCT  STREAMS  HAVE  BEEN  '/1H  , 1 5X , ' CONV ERT ED  TO  ', 
3 ' I NEQUAL IT Y  CONSTRAINTS') 

5  FORMAT( 1H0,12X, 'SFCBDP  FINISHED') 


WRITE! 6, 1) 

C  THE  OBJECTIVE  FUNCTION  HAS  THE  FORM 


Ij  .  ' 

/»«■  I 

I  ’  T  J  I  -  IN  ,  |  ?  •  1HA 

.  u4i  ji  i  an  ;  u  o 

.  O  f<  l  4  r0A>»TM03  3HT  flO=i 
(  I,  i  ~  L )  (  UXH*  U) 

(  *  1  =  J )  I  tl) 

(Jt  )  <  .1)  -  <  >  ♦  U 

•  (  .  t  t  )  .  i,  I  ) 

OH  A  =U8  230I*TAM  9HT 


r 


(  ,  *  ,  , 


•  I  •  .  .fit  »  C  r  ,  )  V ,  I  4  ■  ,  .  ■  > ,  ■  0  ' 

•  I  .  i  1 1  ',MI  V  .  ’  .  •  ( c*  i  ,  ♦> ,  I '  i  »  ;•  01 

.  i  »u  »  f  .  4> )  <  j  •  .  (  *  ♦  ■  n  m 

.  tC.il:  it  (  ^  t  f  .  1  ,iM‘‘  '  f 

t  t  .  .  [ 

(I  .  ,  I  .  (  I  i  »(J  I  \JA<  \ 

»(  )  : .  (  )  t  i  t  ■■■?■■■ )  :>*  c  *iMin 

.  >  i 


. 1  «X€X«\\V\\\f  )  T  AK  Hf  H  J 

•’  '  •  1  t  '  4 1  V  •  ;  -)«  j  .M.J  iHT  M 

I  •  i  -l  H  fa.  ,1  l  J  •  ■  A  ,  ,  :  ■(?  • 

•  ’  .  *  ?  ■  •  .  V  \ 

•  1  i  '  i  jC  ’-l  -vli;;l(  n  r  •  ,XSXf  OHI  )TrtM»r»^  <s 

i  f  f\  •  '  f  TO/  .  A  Zi  fl  T  >  10*  [ 

<  »Y  Jl  )'€ 

.  i  t  OH I ) TAMflOR  t 

'  •  '  • 

(  '  .  Ai <  Zf  '  i  »  S 

*'  »•  ^  1  ‘  ■  '  ^  !T  C  r  i':ri  i-IT»  $^SX*Ohj  )  TAM #03  a 

■  1  t'  •  t  -  t  \ »  i  ..in  n  •  •  r 

'  t  •  .?  ,  ’  f  \>  .  h?Z  }  •  s 

( •  c  !  o  r  i  j  u  i  • 

:  ' 4  ■  ✓  t  .  .i-  • T  .if  u  a  -f  i-i 


(it  »  i  ■ 


oooooooo 


B-  21 


C  SUBROUTINE  SFCBDP  ...(CONT'D) 

MIN  Z  =  SUM(  (  J  =  1  ,NCOMP  )  ,K  =  1  ,NF  )  FDCOST ( J , K ) *F ( J , K  ) 

+  SUM( ( J  =  1 ,NCOMP  )  ,K  =  1,NG)  OPCOST ( J , K ) *G ( J , K ) 

+  SUM(  (J=l,NCOMP),K=l,NPRO)  V ALPRO ( J , K ) *P ( J , K  ) 
=  SUM  ( J  =  1 ,NF  )  CZ(J)*X(J) 

WHERE  F ( J  *  K  )  =  (SUM  (L=1,NG)  Y ( J, L,K ) ) *FX ( K  ) 

CALCULATION  OF  C Z ( J ) 


M=0 
N  =  NF 

DO  100  K  =1 ,NF 
C  Z ( K ) =0  • 

DO  100  J  =1 ,  NC OMP 
S  UM  =  0 

DO  95  L=1,NG 
95  SUM  =  SUM  +  Y( J,L,K  ) 

CZ(K)=CZ(K)+FDCOST (J ,K )*SUM 
100  CONTINUE 
NE  =0 

DO  130  K=1,NG 
DO  130  J  =1  *  NC  OMP 
NE=NE+ 1 
DO  130  L  =1 , NF 

CZ(L)=CZ( L)+OPCOST( J,K )*BIF (NE,L) 

130  CONTINUE 
NE  =  0 

DO  150  K  =1 » NPRO 
DO  150  J=1,NC0MP 
NE=NE+ 1 
DO  150  L=1,NF 

CZ( L )=CZ( L)-VALPRO( J ,K )*PBIF (NE, L) 

150  CONTINUE 
WRITE( 6,2) 

C  THE  JJTH  PROCESS  AND  IMPLIED  CONSTRAINT  HAS  THE  FORM 

C  RHS(JJ)  (  .  L  E .  ,  • EO •  ,  OR  .GE.) 

C  SUM  (K  =  1,NF)  CREDVA( J,K  ) *FX ( K ) 

C  +  SUM  ( ( L=1 ,NCOMP ) ,K=1,NG )  Cl N S ( J , L , K ) *G ( L , K ) 

C  +  SUM  (  ( L  =  1 ,NCOMP  )  ,K  =  1 ,NPRO)  CPROD ( J , L , K  )  *P ( L , K ) 

C  (.GE.  ,  .EO.  ,  OR  .LE.)  RNGE(JJ) 

C  OR 

C  RHS(JJ)  ( . LE . , . EO. ,  OR.GE.)  SUM  (K=1,NF)  CC ( J J , K ) *X ( K ) 

C  (.GE.,  .EO.,  OR  .LE.)  RANGE ( J  J ) 

C  WHERE 

C  J J= 1 , NCON 

C 

C  CALCULATION  OF  CC(JJ,N) 

C 
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C  SUBROUTINE  SFCBDP  ...(CONT'D) 

IF(NCON)  251,251,195 
195  DO  230  J=1 , NC ON 
M=M+1 

DO  200  K  =1 , NF 
CC(M,K)=CREDVA( J,K) 

200  CONTINUE 
NV  =  0 

DO  210  K  =1 , NG 
DO  210  L=1,NC0MP 
NV=NV+ 1 

IF(ABS(CINS( J,L,K))  .LT. 0.00001)  GOTO  210 
DO  209  LL  =  1  ,NF 

CC( M,LL )=CC( M,LL )+BIF (NV ,LL )*C INS ( J, L, K) 

209  CONTINUE 

210  CONTINUE 
NV  =  0 

DO  220  K=1,NPR0 
DO  220  L  =1 , NC OMP 
NV=NV+ 1 

I F ( ABS(CPROD(J ,L,K  )) . LT  .  0.00001 )  GOTO  220 
DO  219  LL  =1 ,NF 

CC(M,LL) =CC ( M  ,  LL )+PBIF(NV,LL )  *CP ROD ( J , L , K ) 

219  CONTINUE 

220  CONTINUE 
230  CONTINUE 

RHS*S  CONSTRAINT  TYPES  AND  RANGES 


240  DO  250  J=1 ,M 

NS  I G ( J ) =NCODE ( J ) 

RANGE ( J ) =RNGE ( J ) 

R  (  J  )  =RHS ( J ) 

250  CONTINUE 
WR IT E ( 6 , 3  ) 

THE  BOUNDS  ON  THE  FX(J)  ARE  ENTERED  IN  THE  BOUNDS 
VECTOR. 


251  IF(NB)  300,300,255 
255  CONTINUE 

DO  260  J=1  ,NF 
BOUND ( J ) =FB  ND ( J  » 1 ) 

NBT ( J )  =  FB  ND ( J , 2 ) 

260  CONTINUE 

BOUNDS  ON  G(J»K),P(J,K)  ARE  EXPRESSED  AS  ADDITIONAL 
CONSTRAINTS  IN  TERMS  OF  FX(K). 
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SUBROUTINE  SFCBDP 


•  •  • 


(CONT 'D  ) 


NV=0 

DO  270  J=1,NG 
DO  270  K  =  1 ,NCOMP 
NV=NV+ 1 

IT=GBND(K,J,2)+1 

GOTO (270,2  61  ,262,263,270,270,270 ) ,  IT 

261  NS  I G ( M+ 1 ) =-l 
GOTO  265 

262  NS  I G ( M+ 1 ) =1 
GOTO  265 

263  NS  I G (  M+  1 )  =0 

265  M=M+1 

R ( M ) =GB  ND ( K  ,  J  ,  1  ) 

RANGE ( M ) =0 . 

DO  266  L  =  1  ,NF 
CC(M,L)=BIF(NV,L) 

266  CONTINUE 

270  CONTINUE 
NV  =  0 

DO  280  J=1 , NPRO 
DO  280  K  =  1 ,NCOM P 
NV=NV+ 1 

IT=PBND(K,J,2 )+l 

GOTO (2 80,2 71 ,272,273,280,280,280 ) , IT 

271  NS IG ( M+ 1 ) =-l 
GOTO  275 

272  NS  I G ( M+  1 )  =  1 
GOTO  275 

273  NS  I G ( M+ 1 ) =0 

275  M=M+ 1 

R(M)  =  PBND(K,J,1  ) 

RANGE ( M ) =0. 

DO  276  L  =  1  ,NF 

CC ( M,L )=PB IF (NV,L  ) 

276  CONTINUE 
280  CONTINUE 

WR  IT  E  (  6 , 4  ) 

300  WR I T E ( 6, 5 ) 

RETURN 

END 
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MPS  PROGRAM  E.P. 
EXPANDED  PROBLEM 


PROGRAM 

TITLEt ‘BUTADIENE  AREA  L.P.  -  EXPANDED  PROBLEM') 

* 

*  THIS  PROGRAM  SOLVES  THE  EXPANDED  FORM  OF  THE  L.P. 

*  PROBLEM  USING  DATA  GENERATED  BY  A  FORTRAN  PROGRAM. 

* 

INITIALZ 

XCLOCKS W=0 

X  FR  EO I NV  =  20 

MOVE ( XDATA, ' S  FEBDP '  ) 

MOVE  (  XPBNAME» ' S  FEB  DP ' ) 

XPRICE=1 

CONVERT 

SETUP ( 'RANGE' , 'RA.BDP.l' »• BOUND', 'BND.BDP1' , 'MIN' ) 
MOVE ( XOBJ, 'COSTS' ) 

MOVE ( XRHS, ' RHBDP ' ) 

PICTURE 

DUAL 

PRI MAL 

SOLUTION 

RANGE 

EXIT 

PEND 
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MPS  PROGRAM  R.P. 
REDUCED  PROBLEM 


PROGRAM 

TITLE(  ‘BUTADIENE  AREA  L.P.  -  REDUCED  PROBLEM') 

* 

*  THIS  PROGRAM  SOLVES  THE  REDUCED  FORM  OF  THE  L.P, 

*  PROBLEM  USING  DATA  GENERATED  BY  A  FORTRAN  PROGRAM. 

* 

INITIALZ 

XCL0CKSW=0 

XFREO I NV=20 

MOVE ( XDATA  , • SFCBDP* ) 

MOVE ( XPBNAME, 'SFCBDP'  ) 

X  PR  I C  E= 1 
CONVERT 

SETUP (  'RANGE', 'RA.BDP.l*  , • BOUND', »BND. BDP. ' ,  'MIN'  ) 
MOVE ( XOB J , 'COSTS'  ) 

MOVE ( XRH  S ,  'RHBDP '  ) 

PRIMAL 

SOLUTION 

RANGE 

EXIT 

PEND 
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2 .  TABLES 

Input  data  and  O.S.  control  cards  for  MPS/360 
operation  appear  in  the  following  tables.  For  a  list 
of  tables,  see  the  title  page. 
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TABLE  B  -  1 

MPSDAT  INPUT  OATA 
EXPANDED  PROBLEM 


SFEBDP 

CREDVA1 

C I  NTS  1 

CPROD1 

MAT.FX8 

MAT.FX9 

MAT  #FX10 

MAT.FXII 

RG1.1 

RG2.1 

RG3.1 

RG4.1 

RG1.2 

RG2.2 

RG3.2 

RG4.2 

RG1.3 

RG2.3 

RG3.3 

RG4.3 

RG1.4 

RG2.4 

RG3.4 

RG4.4 

RG1.5 

RG2.5 

RG3  •  5 

RG4.5 

RG1.6 

RG2.6 

RG3.6 

RG4.6 

RG1.7 

RG2.7 

RG3.7 

RG4.7 

RG1.8 

RG2.8 

RG3.8 

RG4.8 

RG1.9 

RG2.9 

RG3.9 

RG4.9 

RG1.10 

RG2. 10 

RG3.  10 
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TABLE  B 


...CONT'D 


RG4. 10 

RG1. 11 

RG2. 11 

RG3. 11 

RG4. 11 

RG1.12 

RG2. 12 

RG3.12 

RG4.12 

RG1.13 

RG2. 13 

RG3.13 

RG4.13 

RG1.14 

RG2.14 

RG3.14 

RG4.14 

RG1.15 

RG2.15 

RG3. 15 

RG4.15 

RP1.  1 

RP2.1 

RP3.1 

RP4.1 

RP1.2 

RP2.2 

RP3.2 

RP4.2 

RP1.3 

RP2.3 

RP3.3 

RP4.3 

RP1.4 

RP2.4 

RP3.4 

RP4.4 

RP1.5 

RP2.5 

RP3.5 

RP4.5 

RP1.6 

RP2.6 

RP3.6 

RP4.6 

FX1 

FX2 

FX3 

FX4 

FX5 

FX6 

FX7 
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TABLE  B 


..  .CONT 'D 


FX8 

FX9 

FX  10 

FX11 

GG1.1 

GG2.1 

GG3  •  1 

GG4.  1 

GG 1  •  2 

GG2.2 

GG3.2 

GG4.2 

GG1.3 

GG2.3 

GG3  •  3 

GG4.3 

GG1.4 

GG2.4 

GG3.4 

GG4.4 

GG1.5 

GG2.5 

GG3.5 

GG4.5 

GG1.6 

GG2.6 

GG3  *6 

GG4.6 

GG1.7 

GG2.7 

GG3.7 

GG4.7 

GG1.8 

GG2.8 

GG3  •  8 

GG4.8 

GG1.9 

GG2.9 

GG3  *9 

GG4.9 

GG 1 • 10 

GG2.10 

GG3. 10 

GG4. 10 

GG 1 • 1 1 

GG2.11 

GG3.11 

GG4. 11 

GG1.12 

GG2.12 

GG3.12 

GG4. 12 
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TABLE  B 


..  .CONT 'D 


GG1.13 

GG2. 13 

GG3.13 

GG4. 13 

GG1.14 

GG2. 14 

GG3.14 

GG4.14 

GG1.15 

GG2.15 

GG3.15 

GG4.15 

Pl.l 

P2  *  1 

P3.1 

P4.1 

PI. 2 

P2.2 

P3.2 

P4.2 

PI. 3 

P2.3 

P3.3 

P4.3 

PI. 4 

P2.4 

P3.4 

P4.4 

PI. 5 

P2.5 

P3.5 

P4.5 

PI. 6 

P2.6 

P3.6 

P4.6 

COSTS 

RHBDP 

RA.BDP.l 

BND.BDP1 
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TABLE  B  -  2 
MPS DAT  INPUT  DATA 
REDUCED  PROBLEM 


SFCBDP 

CREDVA1 

C  I  NTS  1 

CPROD1 

MAT.FX8 

MAT.FX9 

MAT • F  X 10 

MAT.FX11 

RG2  •  1 

RG1.2 

RG1.3 

RG2. 10 

RG4.  5 

RG4.6 

F  X 1 

FX2 

FX3 

FX4 

FX5 

FX6 

FX7 

FX8 

FX9 

FX  10 

FX11 

COSTS 

RHBDP 

RA.BDP. 1 

BND.BDP.l 
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TABLE  B  -  3 

DATA  GENERATED  FOR  MPS/360 
EXPANDED  PROBLEM 


NAME  SFEBDP 

ROWS 

N  COSTS 
L  CREDVA1 
L  CINTS1 
G  CPROD1 
L  MAT.FX8 
L  MAT.FX9 
L  MAT.FXIO 
L  MAT.FX11 
E  RG1.1 
E  RG2.1 
E  RG3.1 
E  RG4.1 
E  RG1.2 
E  RG2.2 
E  RG3.2 
E  RG4.2 
E  RG1.3 
E  RG2.3 
E  RG3.3 
E  RG4.3 
E  RG1.4 
E  RG2.4 
E  RG3.4 
E  RG4.4 
E  RG1.5 
E  RG2.5 
E  RG3.5 
E  RG4.5 
E  RG1.6 
E  RG2.6 
E  RG3.6 
E  RG4.6 
E  RG1.7 
E  RG2.7 
E  RG3.7 
E  RG4*  7 
E  RG1.8 
E  RG2.8 
E  RG3.8 
E  RG4.8 
E  RG1.9 
E  RG2.9 
E  RG3.9 
E  RG4.9 
E  RG1.10 
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TABLE  B  -  3 


.. .CONT 'D 


E  RG2.10 
E  RG3.10 
E  RG4.I0 
E  RG1.11 
E  RG2.11 
E  RG3.11 
E  RG4.11 
E  RG1.12 
E  RG2.12 
E  RG3.12 
E  RG4.12 
E  RG1.13 
E  RG2.13 
E  RG3.13 
E  RG4.13 
E  RG1.14 
E  RG2.14 
E  RG3.14 
E  RG4.14 
E  RG1.15 
E  RG2. 1 5 
E  RG3.15 
E  RG4.15 
E  RP1.1 
E  RP2.1 
E  RP3.1 
E  RP4.1 
E  RP1.2 
E  RP2.2 
E  RP3.2 
E  RP4.2 
E  RP1.3 
E  RP2.3 
E  RP3.3 
E  RP4.3 
E  RP1.4 
E  RP2.4 
E  RP3.4 
E  RP4.4 
E  RP1.5 
E  RP2.5 
E  RP3.5 
E  RP4.5 
E  RP1.6 
E  RP2.6 
E  RP3.6 
E  RP4.6 
COLUMNS 
FX1 
FX1 
FX1 
FX1 


COSTS 

RG1.1 

RG2.1 

RG3.1 
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TABLE  B 


FX2 

COSTS 

FX2 

RG1.3 

FX2 

RG2.3 

FX2 

RG3.3 

FX2 

RG4.3 

FX3 

COSTS 

FX3 

RG1 .4 

FX3 

RG3.4 

FX3 

RG4.4 

FX4 

COSTS 

FX4 

CREDVA1 

FX4 

RG1.4 

FX4 

RG2.4 

FX4 

RG3.4 

FX4 

RG4.4 

FX5 

COSTS 

FX5 

CREDVA1 

FX5 

RG1.5 

FX5 

RG2.5 

FX5 

RG3.5 

FX5 

RG4.5 

FX6 

COSTS 

FX6 

RG1.6 

FX6 

RG2.6 

FX6 

RG4.6 

FX7 

COSTS 

FX7 

RG1.7 

FX7 

RG4.7 

FX8 

COSTS 

FX8 

MAT.FX8 

FX8 

RG2.9 

FX9 

COSTS 

FX9 

MAT.FX9 

FX9 

RG2.1 

F  X 10 

COSTS 

FX10 

MAT.FX10 

FX 10 

RG2. 10 

FX11 

COSTS 

F  X 1 1 

MAT • FX1 1 

FX  1 1 

RG2.1 

GG1 .  1 

RG1 . 1 

GG1.1 

RG1  .2 

GG2.  1 

COSTS 

GG2.1 

RG2.1 

GG2.  1 

RG2.2 

GG2.1 

RG2.8 

GG3.1 

RG3.1 

GG3.1 

RG3.2 

GG4.  1 

RG4.1 

GG4.1 

RG4.2 

GG1.2 

COSTS 

GG1.2 

Cl  NTS  1 

-  3  ...CONT'D 

0.030000 
-0.920000 
-0.030000 
-0.040000 
-0.010000 
0.048000 
-0.600000 
-0.100000 
-0.300000 
0.100000 
1  .00000 
-0.080000 
-0.010000 
-0.010000 
-0.900000 
0.100000 
1.00000 
-0.080000 
-0.010000 
-0.010000 
-0.900000 
0.038000 
-0.300000 
-0.300000 
-0.400000 
0.110000 
-0.100000 
-0.900000 
-0.034000 
1.00000 
1 .00000 
-0.084000 
1.00000 
1.00000 
-0.033000 
1.00000 
1.00000 
-0.034000 
1 .00000 
1.00000 
1 .00000 
-1.00000 
0.032000 
1.00000 
-0.150000 
-0.850000 
1 .00000 
-1.00000 
1.00000 
-1.00000 
0.032000 
1.00000 
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TABL 

GG  1.2 

RG1.2 

GG1.2 

RG1 .3 

GG1.2 

RP1.1 

GG2.2 

C I  NTS 1 

GG2.2 

RG2.2 

GG2.2 

RG2.3 

GG2.2 

RP2.1 

GG3.2 

Cl NTS1 

GG3.2 

RG3.2 

GG3.2 

RG3.3 

GG3.2 

RP3.1 

GG4.2 

C I  NTS  1 

GG4.2 

RG4.2 

GG4.2 

RG4.3 

GG4.2 

RP4. 1 

GG1 .3 

RG1.3 

GG1.3 

RG1.4 

GG1.3 

RG4.4 

GG2.3 

RG2.3 

GG2.3 

RG2.4 

GG3.3 

RG3.3 

GG3.3 

RG3.4 

GG4.3 

RG4.3 

GG4.3 

RG4.4 

GG1.4 

RG1.4 

GG1.4 

RG1.11 

GG1.4 

RP1.2 

GG2.4 

RG2.4 

GG2.4 

RG2. 11 

GG2.4 

RP2.2 

GG3.4 

RG3.4 

GG3.4 

RG3.11 

GG3.4 

RP3.2 

GG4.4 

COSTS 

GG4.4 

RG4.4 

GG4.4 

RG4. 11 

GG4.4 

RP4.2 

GG1.5 

RG1.5 

GG1 . 5 

RG1. 12 

GG2.5 

RG2.5 

GG2.5 

RG2.12 

GG3.5 

RG3.5 

GG3.5 

RG3.12 

GG4.5 

COSTS 

GG4.  5 

RG4.5 

GG4.5 

RG4.12 

GG4.  5 

RP4.3 

GG1.6 

RG1 .6 

GG1.6 

RG1.7 

GG1.6 

RG1.14 

GG2.6 

RG2.6 

GG2.6 

RG2.7 

-  3  .. .CONT  »D 

1.00000 
-0.920000 
-0.080000 
1 .00000 
1.00000 
-0.900000 
-0.100000 
1.00000 
1.00000 
-0.150000 
-0.850000 
1.00000 
1.00000 
-0.980000 
-0.020000 
1.00000 
-0.600000 
-0.360000 
1.00000 
-0.970000 
1.00000 
-0.900000 
1.00000 
-0.900000 
1.00000 
-0.950000 
-0.050000 
1.00000 
-0.950000 
-0.050000 
1.00000 
-0.950000 
-0.050000 
0.028000 
1.00000 
-0.950000 
-0.050000 
1 .00000 
-1.00000 
1.00000 
-1.00000 
1.00000 
-1.00000 
0.007600 
1.00000 
-0.050000 
-0.950000 
1.00000 
-0.200000 
-0.800000 
1.00000 
-0.200000 
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TABLE  B 


GG2.6 

RG2.14 

GG  3.6 

RG3  »  6 

GG3.6 

RG3.14 

GG4.6 

COSTS 

GG4.6 

RG4.6 

GG4.6 

RG4.7 

GG4.6 

RG4. 14 

GG1  .7 

RG1.7 

GG1.7 

RG1.15 

GG2.7 

RG2.7 

GG2.7 

RG2.15 

GG3.7 

RG3.7 

GG3.7 

RP3.4 

GG4.7 

COSTS 

GG4.7 

RG4.7 

GG4.7 

RG4.15 

GG4.7 

RP4.4 

GG  1  .8 

RG1 .8 

GG2.8 

MAT.FX8 

GG2.8 

RG2.8 

GG2.8 

RG2.9 

GG2.8 

RP2.5 

GG3.8 

RG3.8 

GG4.8 

RG4.8 

GG  1.9 

RG1 .9 

GG2.9 

MAT.FX9 

GG2.9 

MAT • FX10 

GG2.9 

RG2.1 

GG2.9 

RG2.9 

GG2.9 

RG2.10 

GG3.9 

RG3.9 

GG4.9 

RG4.9 

GG1. 10 

RG1. 10 

GG2.10 

COSTS 

GG2. 10 

MAT.FX11 

GG2.10 

RG2  •  1 

GG2. 10 

RG2. 10 

GG2.10 

RP2.6 

GG3. 10 

RG3. 10 

GG4. 10 

RG4.10 

GG1. 11 

RG1.5 

GG1.11 

RG1.6 

GG1. 11 

RG1. 11 

GG2. 11 

RG2.5 

GG2 • 11 

RG2.6 

GG2.11 

RG2.11 

GG3. 11 

RG3.5 

GG3. 11 

RG3.6 

GG3. 11 

RG3.11 

GG4.11 

RG4.5 

GG4. 11 

RG4.6 

GG4.11 

RG4.11 

3  ...CDNT'D 

-0.800000 
1 .00000 
-1.00000 
0.006400 
1.00000 
-0.950000 
-0.050000 
1.00000 
-1.00000 
1.00000 
-1.00000 
1.00000 
-1.00000 
0.002900 
1.00000 
-0.060000 
-0.950000 
1.00000 
-0.800000 
1.00000 
-0.800000 
-0.100000 
1.00000 
1.00000 
1.00000 
-0.100000 
-0.900000 
-0. 100000 
1 .00000 
-0.900000 
1.00000 
1 .00000 
1.00000 
0.052000 
-0.050000 
-0.100000 
1.00000 
-0.850000 
1.00000 
1.00000 
-0.500000 
-0.500000 
1.00000 
-0.500000 
-0.500000 
1.00000 
-0.500000 
-0.500000 
1.00000 
-0.500000 
-0.500000 
1.00000 
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TABLE 


GG1. 12 

RG1.3 

GG1.12 

RG1.12 

GG1. 12 

RG1.13 

GG2.12 

RG2.3 

GG2. 12 

RG2.12 

GG2.12 

RG2.13 

GG3. 12 

RG3.3 

GG3.12 

RG3.12 

GG3. 12 

RG3.13 

GG4.12 

RG4.3 

GG4. 12 

RG4. 12 

GG4.12 

RG4.13 

GG1. 13 

RG1.1 

GG1.13 

RG1 .2 

GG1. 13 

RG1.13 

GG2.13 

RG2.1 

GG2. 13 

RG2.2 

GG2.13 

RG2.13 

GG3. 13 

RG3.1 

GG3.13 

RG3.2 

GG3. 13 

RG3.13 

GG4.13 

RG4.1 

GG4.13 

RG4.2 

GG4.13 

RG4.13 

GG1. 14 

RG1  .1 

GG1.14 

RG1 .3 

GG1.14 

RG1.14 

GG2.14 

RG2.1 

GG2.14 

RG2.3 

GG2.14 

RG2.14 

GG3. 14 

RG3.1 

GG3.14 

RG3.3 

GG3. 14 

RG3. 14 

GG4.14 

RG4.1 

GG4. 14 

RG4.3 

GG4.14 

RG4.14 

GG1. 15 

RG1.1 

GG1.15 

RG1 .3 

GG1. 15 

RG1.15 

GG2.15 

RG2.1 

GG2. 15 

RG2.3 

GG2.15 

RG2.15 

GG3. 15 

RG3.1 

GG3.15 

RG3.3 

GG3. 15 

RG3. 15 

GG4.15 

RG4.1 

GG4. 15 

RG4.3 

GG4.15 

RG4.15 

PI.  1 

RP1.1 

P2 . 1 

RP2.1 

P3. 1 

COSTS 

P3  •  1 

RP3.1 

B  -  3  ...CONT'D 

-0.800000 
1.00000 
-0.200000 
-0.800000 
1.00000 
-0.200000 
-0.800000 
1.00000 
-0.200000 
-0.800000 
1.00000 
-0.200000 
-0.900000 
-0. 100000 
1.00000 
-0.900000 
-0.100000 
1.00000 
-0.900000 
-0.100000 
1  .00000 
-0.900000 
-0.100000 
1  .00000 
-0.650000 
-0.350000 
1.00000 
-0.650000 
-0.350000 
1.00000 
-0.650000 
-0.350000 
1.00000 
-0.650000 
-0.350000 
1.00000 
-0.050000 
-0.950000 
1.00000 
-0.050000 
-0.950000 
1.00000 
-0.050000 
-0.950000 
1.00000 
-0.050000 
-0.950000 
1.00000 
1.00000 
1.00000 
-0.029000 
1.00000 
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TABLE 


P4.  1 

RP4.  1 

PI. 2 

COSTS 

PI. 2 

RP1 .2 

P2.2 

COSTS 

P2.2 

RP2.2 

P3.2 

COSTS 

P3.2 

RP3.2 

P4.2 

COSTS 

P4.2 

RP4.2 

PI. 3 

RP1.3 

P2.3 

RP2.3 

P3.3 

RP3.3 

P4.3 

COSTS 

P4.3 

CPR0D1 

P4.3 

RP4.3 

PI. 4 

RP1.4 

P2.4 

RP2.4 

P  3  •  4 

RP3.4 

P4.4 

COSTS 

P4.4 

CPR0D1 

P4.4 

RP4.4 

PI. 5 

RP1.5 

P2.5 

COSTS 

P2.5 

RP2.5 

P3.5 

RP3.5 

P4.5 

RP4.5 

PI. 6 

RP1.6 

P2.6 

COSTS 

P2.6 

RP2.6 

P3.6 

RP3.6 

RHS 

P4.6 

RP4.6 

RHBDP 

CREDVA1 

RHBDP 

CINTS1 

RHBDP 

CPR0D1 

RANGES 

RA.BDP. 1 

CREDVA1 

RA.BDP.l 

CPR0D1 

BOUNDS 

UP 

BND.BDP1 

F  XI 

UP 

BND.BDP1 

FX2 

UP 

BND.BDP1 

FX3 

UP 

BND.BDP 1 

FX6 

UP 

BND.BDP1 

FX7 

UP 

BND.BDP 1 

GG2  •  1 

UP 

BND.BDP1 

GG1 .2 

UP 

BND.BDP1 

GG1 .3 

UP 

BND.BDP1 

GG4.5 

UP 

BND.BDP 1 

GG4.6 

UP 

BND.BDP1 

GG2. 10 

ENDATA 

B  -  3  .  . .CONT  »D 

1.00000 
-0.012000 
1.00000 
-0.012000 
1.00000 
-0.012000 
1.00000 
-0.012000 
1.00000 
1.00000 
1.00000 
1.00000 
-0.120000 
1.00000 
1.00000 
1.00000 
1.00000 
1.00000 
-0.120000 
1.00000 
1.00000 
1.00000 
-0.026000 
1 .00000 
1 .00000 
1.00000 
1.00000 
-0.300000 
1.00000 
1.00000 
1 .00000 

0.014000 

1.05000 

0.060000 

0.0 

0.280000 

0.960000 

0.105000 

0.027000 

0.038000 

0.045000 

0.230000 

0.660000 

1.15000 

0.260000 

0.260000 

0.140000 
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TABLE  B  -  4 


DATA  GENERATED  FOR  MPS/360 


REDUCED  PROBLEM 


NAME 

ROWS 


SFCBDP 


N 

COSTS 

L 

CREDVA1 

L 

C I  NTS  1 

G 

CPROD1 

L 

MAT.FX8 

L 

MAT.FX9 

L 

MAT.FX1 

L 

MAT, FX 1 

L 

RG2  •  1 

L 

RG1.2 

L 

RG1.3 

L 

RG2. 10 

L 

RG4.5 

L 

RG4.6 

COLUMNS 

FX1 

COSTS 

-0.025102 

FX  1 

CINTS1 

1.02050 

F  X 1 

CPR0D1 

0.279661 

FX  1 

MAT.FX8 

-0.223046 

F  X 1 

MAT.FX9 

-0.022305 

FX  1 

MAT • FX 1 0 

-0.200742 

F  X 1 

MAT.FX11 

-0.010037 

FX  1 

RG2  •  1 

0.328009 

FX1 

RG1.2 

0.571416 

FX1 

RG1.3 

0.823921 

FX1 

RG2. 10 

0.150964 

FX  1 

RG4.5 

0.150964 

F  X 1 

RG4.6 

0.200742 

FX2 

COSTS 

-0.017387 

FX2 

C I  NTS  1 

0.483417 

FX2 

CPR0D1 

0.707639 

FX2 

MAT.FX8 

-0.021537 

FX2 

MAT.FX9 

-0.002154 

FX2 

MAT • FX10 

-0.019383 

FX2 

MAT.FX11 

-0.000969 

FX2 

RG2.1 

0.031672 

FX2 

RG1 ,2 

0.428542 

FX2 

RG1.3 

2.05980 

FX2 

RG2. 10 

0.381991 

FX2 

RG4.5 

0.381991 

FX2 

RG4.6 

0.019383 

FX3 

COSTS 

0.003633 

FX3 

CINTS1 

0.571983 

FX3 

CPR0D1 

0.703378 

FX3 

RG1.2 

0.465807 
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FX3 

RG1.3 

1.23892 

FX3 

RG2.10 

0.379691 

FX3 

RG4.5 

0.379691 

FX4 

COSTS 

0.028397 

FX4 

CREDVA1 

1.00000 

FX4 

C I  NTS  1 

0.095049 

FX4 

CPROD1 

0.904638 

FX4 

MAT.FX8 

-0.007401 

FX4 

MAT.FX9 

-0.000740 

FX4 

MAT.FXIO 

-0.006661 

FX4 

MAT. FX1 1 

-0.000333 

FX4 

RG2.1 

0.010884 

FX4 

RG1.2 

0.062108 

FX4 

RG1.3 

0.165189 

FX4 

RG2.10 

0.488333 

FX4 

RG4.5 

0.488333 

FX4 

RG4.6 

0.006661 

FX5 

COSTS 

-0.003224 

FX5 

CREDVA1 

1.00000 

FX  5 

CINTS1 

0.074778 

FX5 

CPROD1 

0.952855 

FX  5 

MAT.FX8 

-0.007478 

FX5 

MAT.FX9 

-0.000748 

FX  5 

MAT.FXIO 

-0.006730 

FX5 

MAT • FX1 1 

-0.000337 

FX  5 

RG2.1 

0.010998 

FX5 

RG1.2 

0.052668 

FX5 

RG1.3 

0.176247 

FX5 

RG2. 10 

0.952823 

FX5 

RG4.5 

0.052824 

FX5 

RG4.6 

0.006730 

FX6 

COSTS 

-0.046857 

FX6 

C I  NTS  1 

0.371095 

FX6 

CPR0D1 

0.615397 

FX6 

MAT.FX8 

-0.243080 

FX6 

MAT.FX9 

-0.024308 

FX6 

MAT.FXIO 

-0.218772 

FX6 

MAT.FX11 

-0.010939 

FX6 

RG2  •  1 

0.357471 

FX6 

RG1.2 

0.292817 

FX6 

RG1.3 

0.643195 

FX6 

RG2.10 

0. 137326 

FX6 

RG4.5 

0.537326 

FX6 

RG4.6 

0.218772 

FX7 

COSTS 

0.001879 

FX7 

C I  NTS  1 

0.057068 

FX7 

CPR0D1 

0.976467 

FX7 

RG1 .2 

0.051394 

FX7 

RG1.3 

0.222996 

FX7 

RG2. 10 

0.065570 

FX7 

RG4.5 

0.065570 

FX8 

COSTS 

0.172292 
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FX8 

C I  NTS 1 

-0.038156 

FX8 

MAT.FX8 

1.16951 

FX8 

MAT.FX9 

0.116951 

FX8 

MAT • FX10 

1.05256 

FX8 

MAT.FX11 

0.052628 

FX8 

RG2.1 

-0.249287 

FX8 

RG4.6 

-1.05256 

FX9 

COSTS 

0.040170 

FX9 

Cl NTS1 

-0.200820 

FX9 

MAT.FX8 

0.892184 

FX9 

MAT.FX9 

1.08922 

FX9 

MAT • F  XI 0 

0.802967 

FX9 

MAT.FX11 

0.040148 

FX9 

RG2.1 

-1.31204 

FX9 

RG4.6 

-0.802966 

F  X 10 

COSTS 

0.182417 

FX10 

CINTS1 

-0.020082 

F  X 10 

MAT.FX8 

0.089218 

FX10 

MAT.FX9 

0.008922 

FX 10 

MAT • FX10 

1.08030 

FX10 

MAT.FX11 

0.054015 

F  X 10 

RG2.1 

-0.131204 

FX10 

RG4.6 

-1.08030 

FX  1 1 

COSTS 

0.090170 

FX1 1 

C I  NTS  1 

-0.200820 

F  X 1 1 

MAT.FX8 

0.892184 

FX1 1 

MAT.FX9 

0.089218 

F  X 1 1 

MAT.FX10 

0.802967 

FX  1 1 

MAT.FX11 

1.04015 

FX  1 1 

RG2.1 

-1.31204 

FX  1 1 

RG4.6 

-0.802966 

RHS 

RHBDP 

CREDVA1 

0.014000 

RHBDP 

C I  NTS 1 

1.05000 

RHBDP 

CPR0D1 

0.060000 

RHBDP 

RG2.1 

0.230000 

RHBDP 

RG1 .2 

0.660000 

RHBDP 

RG1 .3 

1.15000 

RHBDP 

RG2.10 

0.260000 

RHBDP 

RG4.5 

0.260000 

RHBDP 

RG4.6 

0. 140000 

RANGES 

RA.BDP.l 

CREDVA1 

0.0 

RA.BDP.l 

CPR0D1 

0.280000 

BOUNDS 

UP  BND.BDP. 

F  XI 

0.960000 

UP  BND.BDP. 

FX2 

0.105000 

UP  BND.BDP. 

FX3 

0.027000 

UP  BND.BDP. 

FX6 

0.038000 

UP  BND.BDP. 

FX7 

0.045000 
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TABLE  B  -  5 

O.S.  CONTROL  CARDS  REQUIRED 
TYPICAL  MPS/360  RUN 


//LCBIRP  JOB  (CPG1,2,2), 'REDUCED  PROB.' 
//JOBLIB  DD  DSNAME=SYS1 .LPL IB ,DISP=SHR 
//CPC  EXEC  PGM=COMPI LER 


/ / SCRATCH 1  DD 
//SCRATCH2  DD 
//SCRATCH3  DD 
//SCRATCH4  DD 
// SYSMLCP  DD 
//SYSPRINT  DD 
//SYSIN  DD  * 


UNIT=SYSDA,SPACE=(TRK, (2,2 ) ) 
UNIT=SYSDA,SPACE=(TRK, (2,2)) 
UNIT=SYSDA,SPACE=(TRK,  (2,2  )  ) 
UNIT=SYSDA,SPACE=(TRK, (2,2)) 

UNIT  =  SYSDA,SPACE  =  (TRK,  ( 2 , 2  )  )  , D I SP= ( NE W , P A SS ) 
SYSOUT  =  A 


MPS  PROGRAM 


//STEP2  EXEC  PGM=EXECUTOR»COND=(0,NE ,CPC ) 


//SYSMLCP  DD 
//MATRIX1  DD 
//ETA1  DD 

//SCR ATCH 1  DD 
//SCRATCH2  DD 
//PROBFILE  DD 
//NEWPFILE  DD 
//SYSPRINT  DD 
//SYSIN  DD  * 


DS NA ME=^ «C PC *SYSMLCP,DISP=( OLD, DELETE ) 
UNIT=SYSDA,SPACE=(CYL , (5) ,,CONTIG) 
UNIT=SYSDA,SPACE=(CYL, (5 ) , ,CONT IG) 

UNI T=SYSDA,S PACE =(CYL, (5) ,,CONTIG) 
UNIT=SYSDA,SPACE=(CYL, (5 ) , ,CONTIG) 
UNIT=SYSDA,SPACE=(CYL , (5 ) , ,CONTIG ) 
UNIT=SYSDA,SPACE=(CYL, (5), ,CONTIG) 
SYSOUT  =  A 


MPS  DATA 


/* 

/* 
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3 .  DOCUMENTATION 
3 . 1  Procedure 

Linear  programming  was  used  to  find  optimal 
solutions  to  the  specific  optimization  model  for  the 
butadiene  process.  The  form  of  the  model  trans¬ 
formation  equations  used  is  slightly  different  (in 
equation  order  only)  but  will  be  documented  by  comment 
cards  in  the  appropriate  printouts . 

The  procedure  used  consists  of  two  basic 
steps:  generation  of  the  optimization  model  in  a  form 
suitable  for  input  to  MPS/360,  and  solution  of  the 
optimization  problem  by  MPS/360.  The  first  involves 
standard  Fortran  programming  and  job  control;  the 
second  requires  a  knowledge  of  MPS/360  procedures 
and  appropriate  job  control  language.  A  typical 
set  of  O.S.  control  cards  required  for  an  MPS/360 
run  are  listed  in  table  B-5. 

Details  of  the  procedure,  including  definition 
of  variables,  are  documented  by  comment  cards  in  the 
printout  section:  Subroutine  INPUT  (NB,NR)  is 
documented  in  Appendix  C. 

3.2  Input-Output 

The  Fortran  model  generation  step  requires  input  of 
the  model  data  and  MPSDAT  data.  The  model  data  required 
appears  in  Appendix  C,  table  C-l,  MPSDAT  data  are  listed 
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in  tables  B-l  and  B-2.  The  Fortran  programs  generate 
MPS/360  data  defining  the  appropriate  optimization 
problem.  These  data  are  listed  in  tables  B-3  and  B-4. 

The  generated  MPS/360  data  are  read  (for  the 
programs  documented  here,  from  cards) ,  and  the  L.P. 
problem  solved.  The  MPS/360  printout  is  extensive 
and  not  included  here.  The  results  are  summarized 
in  table  9 . 

3.3  Comments 

MPS/360  proved  to  be  an  easy-to-use,  efficient 
and  accurate  procedure.  Additional  features  of  the 
package  were  required  to  continue  analysis  but  were 
not  implemented  at  the  time  they  were  needed. 

For  this  reason,  the  remainder  of  the  analysis  was 
done  using  a  simple  two-phase  simplex  algorithm 
written  in  Fortran.  However,  there  is  no  comparison 
in  accuracy  or  efficiency;  every  effort  should  be 
made  to  use  MPS/360  or  a  comparable  procedure  for 
large  problems . 
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MODEL  DATA  INPUT  PROCEDURE 


Table  of  Contents 


Page 


SUBROUTINES 
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LIST  OF  TABLES 


Table 

Title 

Page 

No. 

C-l 

Model  Data  Required  by 
Split  Factor  Values 

INPUT  -  Initial 

C-12 

C-2 

Summary  written  by  INPUT 

C-18 

C-3 

Variable  Definitions  - 
by  INPUT 

Model  Data  read 

C-19 

o  o  o  o  o 


1 


c- 


S UB ROUT  I NE  INPUT 
SUBROUTINE  INPUT 

SUBROUTINE  INPUT  READS  IN  DATA  NECESSARY  TO  GENERATE 
THE  COEFFICIENTS  OF  THE  LINEAR  PROGRAMMING  PROBLEM. 


COMMON  A(4,15,15),Y(4,15,11) , D ( 4 ,6 , I  5 ) , CPROD ( 10,4,6), 
1C  I  NS ( 10,4,15) ,C  REDVA ( 10,11) ,FDC0ST(4,11 ) , 

1 OPCOS  T ( 4 , 1 5 )  , VAL  PRO ( 4 , 6 ) ,CON (4 ) ,RHS ( 10 ) ,RNGE ( 10 ) , 
1GBND ( 4 , 1 5 , 2 ) , PB ND ( 4 ,6 , 2 ) , F BND ( 1 1 , 2 ) , SE L , NCODE ( 10 ) , 
1NC0MP,NPR0,NG,NF,NC0N,NB,NR 
REAL  DNAME( 16,2 ) / • CON ' , ' RHS • , 'NCOD* ,  • RNGE ' , ' FBND '  , 

1 »OPCO' , • FDCO'  , • VALP' , 'C  RED ' ,  '  A ' ,  '  C I  NS ' ,  'CPRO* , 


2  *  Y  '  ,  '  D  '  , *  GBND ' , ' PBND ' , • 


'  ,' 


,  *D  • 


S' 

' , ' 


,  'E* 


S  ' 


, • ST* , ' ST'  , 


S' 


/ 


3  *  RO'  ,  '  VA  *  » ' 

1  FORMAT (110) 

2  FORMAT! 15X,2A4,12X, 13 ) 

3  FORMAT! G14. 6) 

4  FORMAT! 1H1 ,//////, •  *,12X, 'INPUT  OF  DATA  FOR  THE  ', 

1 ' STANDARD  L.P.  PROBLEM') 

6  FORMAT! 1H0,12X, 'THE  ARRAYS  READ  IN  ARE  -'/1H0,12X, 

1 • ARRAY  NAME' ,10X, 'CODE  NO.') 


7  FORMAT! 1H0,12X, 

8  FORMAT! 1H0,12X, 

9  FORMAT! 1H0, 12X, 

11  FORMAT! 1H0 ,12X, 

12  FORMAT! 1H0,12X, 

13  FORMAT! 1H0,12X, 

14  FORMAT! 1H0,12X, 

15  FORMAT! 1H0,12X, 
WR  I T  E  (  6, 4 ) 

12=2 

14=4 
16=6 
110=10 
111=11 
115=15 
I  100=100 


INPUT  FINISHED' ) 

CATALYST  SELECTIVITY  =',F4.2) 

NO.  OF  COMPONENTS  =',I2) 

NO.  OF  UNITS  =  •  , 13 ) 

NO.  OF  FRESH  FEED  STREAMS  =',I3) 

NO.  OF  INEQUALITY  CONSTRAINTS  =',I3) 


NB=  *  ,12,' 


NR=  '  , I  2/) 


NO.  OF  PRODUCT  STREAMS  =',I2) 


THE  VARIABLES  ARE  READ  IN. 


READ! 5,3 )  SEL 
R  EAD  (  5  ,  1 )  NCOMP 
READ! 5, 1 )  NPRO 
READ! 5,1)  NG 
READ ( 5, 1 )  NF 
READ! 5,1)  NC  ON 
READ ( 5 , 1 )  NB 
READ ( 5, 1 )  NR 
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SUBROUTINE  INPUT  ...(CONT»D) 

WR  I T  E  (  6 , 8  )  SEL 
WRITE(6,9)  NCOMP 
WR IT  E ( 6* I  5 )  NPRO 
WRITE(6,11)  NG 
WRITE(6,12)  NF 
WRITE(6,13)  NCON 
WRITE! 6 , 14)  NB,NR 
WRITE(6,6) 

THE  ARRAYS  ARE  READ  IN. 

BECAUSE  THE  ARRAYS  TO  BE  READ  IN  ARE  SPARSE,  ONLY  THE 
NON-ZERO  ELEMENTS  ARE  READ  IN.  THIS  INVOLVES  THE  USE 
OF  SEVERAL  INPUT  ROUTINES. 

IMINP1  -  FOR  INTEGER  ARRAYS  OF  DIMENSION  I 

MINP1  -  FOR  REAL  ARRAYS  OF  DIMENSION  1 

MINP2  -  FOR  REAL  ARRAYS  OF  DIMENSION  2 

MINP3  -  FOR  REAL  ARRAYS  OF  DIMENSION  3 

EACH  ARRAY  IS  ASSIGNED  A  CODE  NO.  -  NT.  THE  CODE  NO. 
IS  READ  BY  INPUT.  CONTROL  IS  THEN  TRANSFERRED  TO 
THE  APPROPRIATE  SUBROUTINE.  A  CODE  NO.  OF  0  INDICATES 
THAT  ALL  ARRAYS  HAVE  BEEN  READ.  THE  MINP  SUBROUTINE 
USED  INITIALIZES  THE  ARRAY  TO  ZERO  AND  THEN  READS  IN 
THE  ARRAY  ELEMENTS  AND  THEIR  INDICES.  AN  INDEX  OF  0 
INDICATES  THAT  ALL  DATA  FOR  THAT  ARRAY  HAVE  BEEN  READ. 


1000  READ ( 5 , 1 )  NT 

I F ( NT )  2000,2000,1500 


1500 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

2000 


WR I T  E ( 6,2 ) ( DNAME ( NT , J )  »  J= 1 »  2 ) » NT 

GOTO! 10,20,30,40,50,60,70,80,90,100, 110,120,130,140 
150,160) , NT 

CALL  MINP1(C0N» 14, £1000) 

CALL  MINP1! RHS»I10, 81000) 

CALL  IMINPKNCODE, I  10,81000  ) 

CALL  MINPKRNGE, 110, 81000) 

CALL  MINP2(FBND, Ill ,12,81000) 

CALL  MINP2(0PC0ST, 14, 115, 81000) 

CALL  MINP2(FDC0ST, 14, 1  11,81000 ) 

CALL  MINP2! VAL PRO , I 4 , 16 , 8 1000 ) 

CALL  MINP2  (CREDVA, I  10,1 11, 81000 ) 

CALL  MINP3!  A  ,  14 , 1 15 , 1  15 , 8 1000 ) 

CALL  M I NP3(C INS, 1 10, 14, 1  15,81000) 

CALL  MINP3 ( CPROD , 1 10,14,16,81000 ) 

CALL  MINP3(Y, 14, 115, Ill, 81000) 

CALL  MINP3(D, 14, 16, I  15,81000) 

CALL  MINP3 (GBND, 14, 1  15,1 2,81000 ) 

CALL  MINP3! PBND,I4,I6,I2,81000) 

CONTINUE 
WRITE (6, 7) 
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RETURN 
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END 


.  .  ( CONT • D ) 
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SUBROUTINE  INPUT 
SUBROUTINE  INPUT ( NB  »  NR  ) 

SUBROUTINE  INPUT  READS  IN  DATA  NECESSARY  TO  GENERATE 
THE  COEFFICIENTS  OF  THE  LINEAR  PROGRAMMING  PROBLEM. 

THIS  VERSION  OF  INPUT  IS  USED  ONLY  IN  THE  MPS  DATA 
GENERATION  PROGRAMS 


COMMON  A(4, 15, 15), Y(4, 15, 11), 0(4,6,15) ,CPROD< 10,4,6) , 
1CINS( 10,4,15) ,CREDVA( 10,11 ),FDC0ST(4, 11) , 

10PC0ST (4,15) ,VALPRO (4,6 ) ,C0N(4 ) ,RHS( 10 ) , RNG  E ( 10 ) , 

1 GBND ( 4, 1 5,2 ) ,PBND (4,6,2 ) , F BND ( 1 1 , 2 ) , S EL , NCOD E ( 10 ) , 

1 NCOMP , NPRO ,NG,NF,NCON 

REAL  DNA  ME ( 1 6 , 2 ) / ' CON  1 ,  '  RHS ' ,  'NCOD' , ' RNGE ' , ' FBND  * , 

1' OPCO' , ' FDCO ' ,'VALP' , •CRED' , ‘A1, 1 C INS  * , ' CPRO' , 


'  *  ' 


,  •  E  • 


'  »  ' 


•  ,  'ST 


•  ,  •  ST 


'  ,  ' 


'  ,  ' 


/ 


2 ' Y ' , • D ' , 'GBND' ,'PBND', ' 

3 ' R0» , • VA'  , •  • , •  ' ,  '  D ' , ' 

1  FORMAT (110) 

2  FORMAT* 15X,2A4, 12X, 13 ) 

3  FORMAT ( G14 . 6 ) 

4  FORMAT* 1H1, //////, »  *,12X, 'INPUT  OF  DATA  FOR  THE  ', 

1 ' STANDARD  L.P.  PROBLEM') 

6  FORMAT( 1H0 ,12X , 'THE  ARRAYS  READ  IN  ARE  -'/1H0,12X, 

1 »  ARRAY  NAME' ,10X, 'CODE  NO.') 


7  FORMAT ( 1H0 , 1 2X , 

8  FORMAT ( 1  HO , 12X , 

9  FORMAT ( 1H0 , 1 2X , 

11  FORMAT ( 1  HO , 12X , 

12  FORMAT ( 1H0 ,12X, 

13  FORMAT ( 1H0, 12X , 

14  FORMAT ( 1H0 , 1 2X , 

15  FORMAT ( 1H0 , 12X , 
WRITE*  6,4) 

12  =  2 
14=4 
16  =  6 
111=11 
110=10 
115=15 
1100=100 


INPUT  FINISHED* ) 

CATALYST  SELECTIVITY  =',F4.2) 

NO.  OF  COMPONENTS  =',I2) 

NO.  OF  UNITS  =• ,13) 

NO.  OF  FRESH  FEED  STREAMS  =',I3) 

NO.  OF  INEQUALITY  CONSTRAINTS  =',I3) 
NB  = '  ,12,'  NR= ' » I  2 / ) 

NO.  OF  PRODUCT  STREAMS  =  •  , I  2  ) 


THE  VARIABLES  ARE  READ  IN. 


R  EAD ( 5,3)  SEL 
READ*  5 , 1 )  NCOMP 
R  EAD ( 5 , 1 )  NPRO 
READ( 5, 1 )  NG 
R  EAD ( 5 , 1 )  NF 
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SUBROUTINE  INPUT  ...!CONT»D) 

R  E AD ( 5 » 1  )  NCON 
R EAD (  5 ,  1 )  NB 
READ(5,1)  NR 
WRITE(6,8)  SEL 
WR ITE ( 6, 9)  NCOMP 
WRITE(6,15)  NPRO 
WR  I T  E  !  6,  1 1  )  NG 
WRITE(6,12)  NF 
WRITE(6,13)  NCON 
WRITE(6,14)  NB  ,  NR 
WRITE! 6, 6) 

THE  ARRAYS  ARE  READ  IN. 

BECAUSE  THE  ARRAYS  TO  BE  READ  IN  ARE  SPARSE,  ONLY  THE 
NON-ZERO  ELEMENTS  ARE  READ  IN.  THIS  INVOLVES  THE  USE 
OF  SEVERAL  INPUT  ROUTINES. 

IMINP1  -  FOR  INTEGER  ARRAYS  OF  DIMENSION  1 

MINPI  -  FOR  REAL  ARRAYS  OF  DIMENSION  I 

MINP2  -  FOR  REAL  ARRAYS  OF  DIMENSION  2 

MINP3  -  FOR  REAL  ARRAYS  OF  DIMENSION  3 

EACH  ARRAY  IS  ASSIGNED  A  CODE  NO.  -  NT.  THE  CODE  NO. 
IS  READ  BY  INPUT.  CONTROL  IS  THEN  TRANSFERRED  TO 
THE  APPROPRIATE  SUBROUTINE.  A  CODE  NO.  OF  0  INDICATES 
THAT  ALL  ARRAYS  HAVE  BEEN  READ.  THE  MINP  SUBROUTINE 
USED  INITIALIZES  THE  ARRAY  TO  ZERO  AND  THEN  READS  IN 
THE  ARRAY  ELEMENTS  AND  THEIR  INDICES.  AN  INDEX  OF  0 
INDICATES  THAT  ALL  DATA  FOR  THAT  ARRAY  HAVE  BEEN  READ. 


1000 

1500 
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READ! 5,1)  NT 

I F ( NT )  2000,2000,1500 

WRITE! 6,2 ) ( DNAME ( NT , J ) , J=l, 2) ,NT 

GOTO! 10,20,30,40,50,60,70,80,90, 100, 110, 120, 130,140 
11 50, 160) , NT 

CALL  MINPI ( CON, 14,81000 ) 

CALL  MINPI (RHS, 110,81000 ) 

CALL  IMINPKNCODE,  110, 81000) 

CALL  MINPI (RNGE , 110,81000 ) 

CALL  MINP2! FBND, Ill, 12,81000) 

CALL  MINP2(0PC0ST, 14, 1  15,81000 ) 

CALL  MINP2! FDCOST, 14, 1  11,81000) 

CALL  MINP2 (VALPRO, 14, 16,81000 ) 

CALL  MINP2  (CREDVA, I  10,1  11,81000) 

CALL  MINP3!  A , I  4 , 1 1 5 , 1  15 , 81000 ) 

CALL  MINP3 (CINS,  110, 14, 1  15,81000 ) 

CALL  M I NP3 (C PROD, 110, 14,16, 81000 ) 

CALL  MINP3(Y, 14, 115, Ill, 81000) 

CALL  MINP3 (D, 14, 16,1 15,81000) 

CALL  MINP3(GBND,  14, 1  15,12,81000) 

CALL  MINP3 ( PBND , 14 , 16 , 12,81000 ) 
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SUBROUTINE  INPUT 
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( CONT' D) 


2000  CONTINUE 

WR IT  E ( 6 1  7  ) 

RETURN 

END 
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C  SUBROUTINE  IMINP1 
C  SUBROUTINE  IMINP1 

THIS  SUBROUTINE  IS  USED  TO  INITIALIZE  THE  ARRAY  A  - 
AN  INTEGER  ARRAY  OF  DIMENSION  A (  I  J )  • 

FIRST,  THE  ARRAY  IS  INITIALIZED  TO  0.  THEN  THE  NON¬ 
ZERO  ELEMENTS  (WITH  THEIR  INDICES)  ARE  READ  IN  AND 
ENTERED.  AN  INDEX  OF  0  INDICATES  THAT  ALL  DATA  FOR 
THE  ARRAY  HAVE  BEEN  READ. 


SUBROUTINE  I M IN  PI ( A  ,  I J , * ) 
INTEGER  A (  I  J  )  ,VAL 
DO  10  J  =  1  ,  I J 
A ( J ) =0.0 
10  CONTINUE 
50  READ ( 5, 1 )  J  ,  VAL 
I F ( J )  100,100,60 
60  A ( J ) = VAL 
GOTO  50 
1  FORMAT (2110) 

100  RETURN  1 
END 
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C  SUBROUTINE  MINP1 

C  SUBROUTINE  MINP1 

THIS  SUBROUTINE  IS  USED  TO  INITIALIZE  THE  ARRAY  A  - 
A  REAL  ARRAY  OF  DIMENSION  A ( I  J ) 

FIRST,  THE  ARRAY  IS  INITIALIZED  TO  0.  THEN  THE  NON¬ 
ZERO  ELEMENTS  (WITH  THEIR  INDICES)  ARE  READ  IN  AND 
ENTERED •  AN  INDEX  OF  0  INDICATES  THAT  ALL  DATA  FOR 
THE  ARRAY  HAVE  BEEN  READ. 


SUBROUTINE  M  INP1 ( A , I J , * ) 
REAL  A ( I J ) 

DO  10  J=1 , I J 
A ( J ) =0. 0 
10  CONTINUE 
50  R EA D ( 5 , 1 )  J  ,VAL 
I F ( J )  100,100,60 
60  A ( J ) = VAL 
GOTO  50 

1  FORMAT! I10,G14.6 ) 

100  RETURN  1 
END 
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C  SUBROUTINE  MINP2 

C  SUBROUTINE  MINP2 

THIS  SUBROUTINE  IS  USED  TO  INITIALIZE  THE  ARRAY  A  - 
A  REAL  ARRAY  OF  DIMENSION  A(IJ,IK) 

FIRST,  THE  ARRAY  IS  INITIALIZED  TO  0.  THEN  THE  NON¬ 
ZERO  ELEMENTS  (WITH  THEIR  INDICES)  ARE  READ  IN  AND 
ENTERED.  AN  INDEX  OF  0  INDICATES  THAT  ALL  DATA  FOR 
THE  ARRAY  HAVE  BEEN  READ. 


SUBROUTINE  M  IN P2 ( A , I J , IK , * ) 
REAL  A (  I J , I K ) 

DO  10  J=1 , I J 
DO  10  K=1 , I K 
A  (  J , K ) =0 • 

10  CONTINUE 
50  R EAD ( 5 , 1 )  J»K , VAL 
I  F ( J )  100,100,60 
60  A  (  J  ,  K  )  =  VA  L 
GOTO  50 

1  FORMAT ( 21 10,G14.6 ) 

100  RETURN  1 
END 
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C  SUBROUTINE  MINP3 

C  SUBROUTINE  MINP3 

THIS  SUBROUTINE  IS  USED  TO  INITIALIZE  THE  ARRAY  A  - 
A  REAL  ARRAY  OF  DIMENSION  A(IJ,IK,IL) 

FIRST,  THE  ARRAY  IS  INITIALIZED  TO  0,  THEN  THE  NON¬ 
ZERO  ELEMENTS  (WITH  THEIR  INDICES)  ARE  READ  IN  AND 
ENTERED.  AN  INDEX  OF  0  INDICATES  THAT  ALL  DATA  FOR 
THE  ARRAY  HAVE  BEEN  READ. 


SUBROUTINE  M  IN P3 ( A  ,  I J , I K , I L , * ) 
REAL  A(  IJ,IK,IL) 

1  FORMAT( 31 10,G14.6 ) 

DO  10  J=1,IJ 
DO  10  K  =  1 , IK 
DO  10  L  =  1 , I L 
A  (  J  ,  K  ,  L  )  -0  • 

10  CONTINUE 

50  R EAD ( 5 , 1 )  J,K,L,VAL 
I  F { J )  100,100,60 

60  A ( J , K , L ) =V AL 
GOTO  50 
100  RETURN  1 
END 
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TABLES 


C-l  2 


TABLE  C  -  1 

MODEL  DATA  REQUIRED  BY  INPUT 
INITIAL  SPLIT  FACTOR  VALUES 


1.0 

4 

6 

15 

11 

7 

1 

1 

1  CON 

1  -0.4 

4  0.4 

0  0.0 

10  A 


1 

1 

2 

1.0 

2 

1 

2 

0.15 

3 

1 

2 

1.00 

4 

1 

2 

1.00 

2 

1 

8 

0.85 

1 

2 

3 

0.92 

2 

2 

3 

0.90 

3 

2 

3 

0.15 

4 

2 

3 

0.98 

1 

3 

4 

1.0 

2 

3 

4 

0.97 

3 

3 

4 

0.90 

4 

3 

4 

0.90 

1 

4 

11 

0.95 

2 

4 

11 

0.95 

3 

4 

11 

0.95 

4 

4 

11 

0.95 

1 

5 

12 

1  .00 

2 

5 

12 
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3 

5 

12 

1  .00 

4 

5 

12 

0.05 

1 

6 

7 

0.20 

2 

6 

7 

0.20 

4 

6 

7 

0.95 

1 

6 

14 

0.80 

2 

6 

14 

0.80 

3 

6 

14 

1.00 

4 

6 

14 

0.05 

1 

7 

15 

1.00 

2 

7 

15 

1.00 

4 

7 

15 
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2 

8 

9 

0.80 
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3 
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1 

2 

3 

4 
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2 
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4 
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2 
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4 
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TABLE  C 


.  .  .CONT ' D 


9 

1 

0.10 

9 

10 

0.90 

10 

1 

0.1 

11 

5 

0.50 

11 

5 

0.50 

11 

5 

0.50 

11 

5 

0.50 

11 

6 

0.50 

11 

6 

0.50 

11 

6 

0.50 

11 

6 

0.50 

12 

3 
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12 

3 
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12 
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12 
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12 
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0.10 

13 

2 
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0.65 

14 

1 
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.  . .CONT  «D 
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• 
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0.032 

0.028 

0.0076 
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0.000 

• 

0.029 

0.012 
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TABLE  C 

-  1 

. . .CONT  *D 

4 
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0.3 

00 
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CREDVA 

• 

4 

1.0 
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.. .CONT  *D 


2 

1 

2 

00 

RHS 

0.014 

1.05 

0.06 

0.00 

RNGE 
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TABLE  C-2 . 

Summary  Written  by  INPUT 


INPUT  OF  DATA  FOR  THE  STANDARD  L.P.  PROBLEM 


CATALYST  SELECTIVITY  =1.00 


NO. 

OF 

components 

=  4 

• 

O 

z 

OF 

product  streams  =  6 

NO. 

OF 

UNITS  =  15 

NO. 

OF 

FRESH  FFED 

STREAMS  =  11 

• 

O 

z 

OF 

I NEQUAL I ty 

CONSTRAINTS  - 

NB  = 

1 

NR=  1 

THE  ARRAYS  READ 

IN  ARE  - 

ARRAY  NAME 

CON 

CODE  NO. 

1 

A 

1  0 

Y 

1  3 

D 

1  4 

FDCOST 

7 

OPCOST 

6 

V ALPRO 

3 

CREDVA 

9 

C  PROD 

1  2 

C  INS 

1  l 

GRND 

1  5 

PBND 

1  6 

F8ND 

5 

RHS 

2 

RNGE 

4 

NCODE 

3 

INPUT  FINISHED 
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TABLE  C  -  3 
VARIABLE  DEFINITIONS 
MODEL  DATA  READ  BY  INPUT 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


-  DEFINITIONS  - 

FX ( K )  -KTH  EXTERNAL  FRESH  FEED 

G(J,K)  -TOTAL  FEED  OF  COMPONENT  J  TO  UNIT  K 

P(J,K)  -COMPONENT  J  OF  THE  KTH  EXTERNAL  PRODUCT 

X(J)  -THE  VARIABLES  OF  THE  L.P.  PROBLEM 

-  VARIABLE  LIST  - 


INPUT  VARIABLES  - 


A  (  I  t  J »  K  ) 


-FRACTION  OF  G(I,J)  WHICH  GOES  TO  UNIT  K 
-NAGIEV  OR  RECOVERY  FACTOR 


CINS(I,J,K)  -COEFFICIENT  OF  G(J,K)  IN  THE  ITH  CON¬ 
STRAINT 


CON ( I ) 


-FRACTION  OF  G(l,3)  WHICH  WOULD  BE  CON¬ 
VERTED  TO  (  OR  DISAPPEAR  FROM)  COMPONENT 
I  IN  UNIT  3  IF  THE  SELECTIVITY  OF  THE 
CATALYST  WERE  1.0 


CPROD ( I »  J  »  K )  -COEFFICIENT  OF  P(J,K)  IN  THE  ITH  CON¬ 
STRAINT 


CREDVAI I  ,K) 


•COEFFICIENT  OF  FX(K)  IN  THE  ITH  CON¬ 
STRAINT 


D  (  I  9  J  9  K  ) 


•FRACTION  OF  G(I,K)  WHICH  LEAVES  THE 
PROCESS  AS  EXTERNAL  PRODUCT  P  (  I , J  ) 


FBND ( I , 1 ) 
FBND ( I »2 ) 


•BOUND  ON  FX  (  I  ) 

•FLAG  INDICATING  TYPE  OF  BOUND 
•SAME  DEFINITION  AS  NBT 


F DCOST ( I  9  J )  -COST  OF  COMPONENT  I  OF  FX ( J ) 


GBND ( I  9  K, 1 ) 
GBND ( I , K  9  2  ) 


•BOUND  ON  G(  I  ,K  ) 

•FLAG  INDICATING  TYPE  OF  BOUND 
•SAME  AS  NBT 
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TABLE  C  -  3  •..CONT'D 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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NB  -INPUT  FLAG  INDICATING  THE  PRESENCE  OF  A 

BOUND  VECTOR 

NB=0  -  NO  BOUNDS 

NB= 1  -  BOUNDS  REQUIRED 

NBT(K)  -FLAG  INDICATING  TYPE  OF  BOUND 

0  -  NO  BOUND  ON  THIS  COLUMN 

1  -  LOWER  BOUND 

2  -  UPPER  BOUND 

3  -  FIXED  VALUE 

4  -  FREE  VARIABLE 

5  -  LOWER  BOUND  IS  -INFINITY 

6  -  UPPER  BOUND  IS  +INFINITY 


NCODE(I)  -FLAG  INDICATING  TYPE  OF  ITH  CONSTRAINT 

-1  -  GREATER  THAN  OR  EQUAL  TO 
0  -  EQUALITY 

+1  -  LESS  THAN  OR  EQUAL  TO 


NCOMP 

NCON 

NG 

NF 


-NUMBER  OF  COMPONENTS 

-NUMBER  OF  CONSTRAINTS  (EXCEPT  MATERIAL 
BALANCE  CONSTRAINTS) 

-NUMBER  OF  UNITS  -  INCLUDING  STREAM 
SPLITTERS 

-NUMBER  OF  EXTERNAL  FRESH  FEEDS 


NPRO 


-NUMBER  OF  EXTERNAL  PRODUCT  STREAMS 


NR  -INPUT  FLAG  INDICATING  PRESENCE  OF  RANGE 

VECTOR 

NR=0  -  NO  RANGE  VECTOR 
NR=1  -  RANGE  VECTOR  REQUIRED 

PBND ( I »  J  1 1 )  -BOUND  ON  P(I,J) 

PBND(I,J,2)  -TYPE  OF  BOUND  ON  P(I,J) 

-SAME  AS  NB T 


RNGE(I)  -OTHER  LIMIT  ON  RANGE  OF  RHS(I) 

RHS(I)  -RIGHT  HAND  SIDE  OF  CONSTRAINT  I 


SEL  -SELECTIVITY  OF  CATALYST  IN  UNIT  3 

VA  LPRO ( I ♦ J  )  -VALUE  OF  PRODUCT  STREAM  P(I,J) 

Y  (  I  ♦  J ♦ K  )  -FRACTION  OF  FEED  FX(K),  FED  TO  UNIT  K, 

WHICH  IS  COMPONENT  I 
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3.  DOCUMENTATION 

Subroutine  INPUT  reads  in  the  model  data  and 
stores  it  in  the  unlabelled  COMMON  block.  The 
variables  and  arrays  appearing  there  are  defined 
in  table  C-3.  Subroutine  INPUT  was  developed  for 
model  data  input  to  the  MPS/360  data  generation 
programs  of  Appendix  B.  Advantage  was  taken  of 
MPS/360  features  which  allow  specification  of 
bounds  on  variables,  and  ranges  on  the  requirements, 
enabling  a  reduction  in  the  number  of  constraints. 

The  variable  SEL  was  required  in  an  earlier 
formulation  of  the  model,  and  is  normally  set  to  1.0. 

The  detailed  procedure  used  is  documented 
in  the  subroutine  listings.  A  listing  of  the  model 
data  required  for  the  butadiene  process  appears  as 
table  C-l.  Subroutine  INPUT  monitors  its  progress, 
writing  a  summary  of  data  read.  This  summary  appears 
as  table  C-2. 

A  better  utilization  of  storage  space  is 
possible,  but  this  improvement  would  require  an 
effort  unwarranted  for  this  study. 

Subroutine  INPUT  uses  IBM's  subroutines 
MINV  and  ARRAY  (32)  for  matrix  inversion. 
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C  SUBROUTINE  CANON 

C  SUBROUTINE  CANON 

PURPOSE 

TO  EXPRESS  A  GIVEN  L.P.  PROBLEM  IN  CANONICAL  FORM 
SUITABLE  FOR  SOLUTION  BY  THE  TWO-PHASE  SIMPLEX 
ALGORITHM 


SUBROUTINE  CANON 

COMMON  /LP/  CON ( 30 ,60 ) , RHS ( 30 ) , CZ ( 2  5 ) , VNAME(  25,  3 ) , 

IX (25) ,NC0DE(30) ,M,N,NBAS (60 ) ,NPH,NS 

C  INITIALIZE  TABLEAU  MATRIX,  VECTORS 

M1=M+1 
DO  3  K  =  I  ,N 
NBAS ( K ) =0 
CON ( M+2  *  K ) =0 • 

3  CONTINUE 
RHS ( M+ I ) =0 • 

RHS ( M+2 ) =0  • 

C  ENTER  OBJECTIVE  FUNCTION  IN  CONSTRAINT  MATRIX 

DO  4  K=  1 ,  N 

4  CON ( M+ 1  *  K ) =CZ ( K ) 

C  MAKE  ALL  RHS  ELEMENTS  NON-NEGATIVE 

DO  10  J  =  1 *  M 
I  F ( RHS ( J )  )  5,10,10 

5  DO  6  K  =  1  ,  N 

6  CON ( J , K ) =-CON ( J , K ) 

RHS ( J ) =-RHS ( J ) 

NCODE ( J ) =-NCODE (J ) 

10  CONTINUE 

C  IF  THIS  IS  A  MAXIMIZATION  PROBLEM,  CONVERT  IT  TO  MIN. 

I F ( NC  ODE ( M+ 1 )  )  13,13,11 

11  DO  12  K  =  1  , N 

12  CON ( M+  1 ,  K  ) =-C ON ( M  +  l , K ) 

C  ADD  SLACK  AND  SURPLUS  VARIABLES. 

13  NO=N 

DO  16  J  =  1 , M 
I F ( NCODE ( J ) )  14,16,15 
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C  SUBROUTINE  CANON  ...(CONT'D) 

14  CON(M+2,N+l ) =+l . 

NBAS ( N+l ) =0 
GOTO  151 

15  C  ON ( M+  2  *  N+ 1 ) =0 • 

NBAS( N+l ) =J 

151  N=N+ 1 

DO  152  K=1,M1 

152  CON (  K  ,  N )  =0  •  0 
CON( J,N)=NCODE( J  ) 

16  CONTINUE 

C  ADD  ARTIFICIAL  VARIABLES  AND  THE  INFEASIBILITY  FORM. 

NS  =N 

NPH  =  0 

M2  =  M+2 

DO  18  J  =  1  , M 

I F ( NC  ODE ( J ) )  17,17,18 

17  N=N+1 

DO  171  K  =1 , M2 
171  C  ON ( K , N ) =0  • 

CON( J,N) =1 .0 
NB AS ( N ) = J 

RHS( M+2) =RHS (M+2  )-RHS ( J) 

DO  18  K  =  1 , NO 

CON( M+2, K) =CON (M+2 ,K )-CON ( J, K) 

18  CONTINUE 

VARIABLES 

STORE  FLAG  INDICATING  PHASE,  STORE  NO.  OF  LEGITIMATE 

NCODE( M+2) =N0 
IF(N-NS)  19,19,20 

19  NPH= 1 

20  CONTINUE 
RETURN 
END 
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C  SUBROUTINE  TPHSIM 
C  SUBROUTINE  TPHSIM 
PURPOSE 

TO  SOLVE  AN  L.P.  PROBLEM,  GIVEN  IN  THE  APPROPRIATE 
CANONICAL  FORM,  USING  THE  TWO  PHASE  SIMPLEX 
ALGORITHM 


SUBROUTINE  TPHSIM 

COMMON  /LP /  C0N(30,60),RHS(30),CZ(25),VNAME(25,3), 

IX (25) , NCOOE ( 30 ) , M , N ,NB AS ( 60 ) , NPH , NS 
M0=M+2-NPH 

FIND  THE  MINIMUM  COST  CON(MO,J)  AND  HENCE  THE  VARI¬ 
ABLE  TO  ENTER  THE  BASIS. 

1  VMIN  =- 1 . 0E-06 
N I  N  =  0 

DO  10  J=1,N 

IF(CON(MO,J)-VMIN)  5,10,10 
5  VMIN=CON( MO, J ) 

N I  N  =  J 

10  CONTINUE 

TEST  FOR  A  MINIMUM. 

IF(NIN)  24,24,11 

CHOOSE  THE  VARIABLE  TO  LEAVE  THE  BASIS. 

11  NOUT  =  0 

VOUT  =  1 • OE+3  0 
DO  14  J=1 , M 

IF(CON( J,NIN) )  14,14,12 

12  V=RHS(J)/CON(J»NIN) 

IF(V-VOUT)  13,14,14 

13  VOUT  =  V 
NOUT  =  J 

14  CONTINUE 

CHECK  FOR  AN  UNBOUNDED  SOLUTION. 

I F ( NOUT )  32,32,15 

PERFORM  THE  PIVOT  OPERATIONS  NECESSARY  TO  UPDATE  THE 
PROBLEM. 
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DO  17  K  =  1 , N 
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C  SUBROUTINE  TPHSIM  ...(CONT'D) 

I F ( NBA  S ( K ) -NOUT )  17,16,17 

16  NBA  S ( K ) =0 
GOTO  18 

17  CONTINUE 

18  NBAS ( N I N ) =NOUT 
DO  22  K=1,N 

I F ( NBAS ( K ) )  19,19,22 

19  CON ( NOUT, K) =C ONI NOUT, K) /CON ( NOUT ,N  I  N ) 

DO  21  J  =  1  , MO 

IF(J-NOUT)  20,21,20 

20  CON ( J , K ) =CON ( J , K )-CON ( NOUT , K ) *CON ( J , N I  N ) 

21  CONTINUE 

22  CONTINUE 

RHS ( NOUT ) =RHS (NOUT ) /CON (NOUT ,N  IN ) 

DO  23  J  =  1 , MO 
IF(J-NOUT)  42,23,42 
42  RHS(J)=RHS(J)-RHS( NOUT )*CON( J,NIN ) 

23  CON( J,NIN) =0. 

CON (NOUT , N IN ) =1  . 

GOTO  1 

C  IS  THE  MINIMUM  PHASE  1  OR  PHASE  2 

24  IF(NPH)  25,25,30 

C  PHASE  1  IS  COMPLETE.  IS  THE  SOLUTION  FEASIBLE 

25  IF(RHS(M+2)+l.E-06)  31,26,26 

C  THE  SOLUTION  IS  FEASIBLE.  PREPARE  FOR  PHASE  2. 

26  MO=MO- 1 
N  =  NS 
NPH=1 
GOTO  1 

C  SET  FLAG  FOR  OPTIMAL  SOLUTION 

30  NS=0 

RHS ( M+ 1 ) =-RHS ( M+ 1 ) 

RETURN 

C  SET  FLAG  FOR  NO  FEASIBLE  SOLUTION. 

31  NS= 1 
RETURN 

C  SET  FLAG  FOR  UNBOUNDED  SOLUTION. 


32  NS  =2 
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C  SUBROUTINE  TPHSIM 

RETURN 

END 


.  .  (CONT«D) 
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C  SUBROUTINE  LPSOL 

C  SUBROUTINE  LPSOL 

PURPOSE 

TO  INTERPRET  THE  SOLUTION  TABLEAU,  PRINT  ERROR 
MESSAGES  IF  NECESSARY,  AND  PRINT  THE  OPTIMAL 
SOLUTION  IF  DESIRED 


SUBROUTINE  LPSOL(KK) 

COMMON  /LP/  C ON (30,60 ) ,RHS(30) ,CZ ( 25) , VNAME( 2  5, 3) , 
IX (25) ,NC0DE(30) ,M,N,NBAS (60 ) ,NPH,NS 

100  FORMATt ///// ,12X, 'NO  FEASIBLE  SOLUTION') 

101  FORMAT( ///// ,12X, 'UNBOUNDED  SOLUTION') 

103  FORMATt 'O' ,12X, 'OBJECTIVE  FUNCTION  =',G12.4,/) 

104  FORMAT( 'O' ,12X, 'VARIABLE  NAME ', 10X ,' VALUE ',/ ) 

105  FORMAT! 16X,3A4,F14. 5 ) 

PRINT  ERROR  MESSAGES  IF  NECESSARY 

IF(NS-l)  20,10,15 
10  WR IT E ( 6 , 100  ) 

RETURN 

15  WRITE(6,101) 

RETURN 

LOCATE  AND  STORE  OBJECTIVE  FUNCTION  AND  DECISION 
VARIABLE  VALUES 

20  NO=NCODE ( M+2 ) 

DO  23  J=1 ,N0 
I F ( NBAS ( J )  )  21,21,22 

21  X(J)=0.0 
GOTO  23 

22  X( J)=RHS(NBAS( J) ) 

23  CONTINUE 

I F ( NC ODE ( M+ 1 )  )  25,25,24 

24  X ( N0+ 1)=-RHS(M+1 ) 

GOTO  30 

25  X ( N0+ 1 ) =RHS( M+l ) 

C  PRINT  THE  OPTIMAL  SOLUTION  IF  DESIRED  (KK.NE.O) 

30  IF(KK.EQ.O)  RETURN 
WR I T  E ( 6, 1 03 )  X (NO  +  1 ) 

WR I T  E ( 6 , 104 ) 

DO  35  J  =  1 , NO 

35  WRITE(6,105)  ( VNAME ( J , K ) , K= 1 , 3 ) , X ( J ) 

RETURN 
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C  SUBROUTINE  LPSOL 


END 


.. ( CONT*  D) 
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2 .  TABLES 
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TABLE  D  -  1 


SAMPLE 

-  INPUT  VARIABLE  NAMES 
FOR  LPSOL 

FX 

FX 

FX 

FX 

FX 

FX 

FX 

FX 

1 

2 

3 

4 

5 

6 

7 

8 

FX  9 
F  X 10 
FX  1 1 
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3 .  DOCUMENTATION 

3.1  Definition  of  Variables 

Communication  between  CANON,  TPHSIM,  LPSOL 
and  the  calling  program  is  via  the  COMMON  block 
/LP/.  The  variables  located  there  are: 


CON  (I,J) 

RHS  (I) 

CZ  (J) 

VNAME ( J  ,  . ) 


constraint  coefficient  matrix 
(destroyed) 

constraint  requirement  vector 
(destroyed) 

objective  function  coefficients 

variable  names  for  output  via 
LPSOL 


X(J) 


NCODE  (I) 


M 

N 

NBAS (J) 


optimal  solution  values  of  variables 

x (N+l )  =  optimal  objective  function 
value 

code  vector  indicating  constraint 
type 

NCODE  (I)  =  +1  >_ 

NCODE (I)  =  0  = 

NCODE  (I)  =  -1  <_ 

NCODE (M+l)  =  problem  type,  <0  -  min 

no.  of  constraints 

no.  of  variables  (destroyed) 

internal  code  indicating  locational 
variables  in  the  basis.  For  NBAS(J)=I, 


' 


' 


, 


D-ll 


I  >0,  the  j  variable  is  in  the 

basis  at  level  RHS(I) 

NPH 

- 

internal  code  indicating  phase  no. 

NS 

on  exit,  solution  status  code. 

NS  =  0  -  If  an  optimal  solution 

was  reached. 

These  are  the  definitions  of  variables  on  entry  to  or 
(where  appropriate)  exit  from  the  simplex  algorithm 
subroutines.  Those  variables  destroyed  during 
computation  are  so  indicated. 

3.2  Input  -  Output 

Subroutine  CANNON  requires  that  the  optimization 
problem  be  specified  via  the  objective  function 
coefficient  vector  CZ(j),  the  constraint  coefficient 
matrix  CON(I,J),  the  requirements  vector  RHS  (I)  ,  the 
constraint  and  the  problem  type  code  vector  NCODE(I), 
the  no.  of  constraints  AA,  and  no.  of  variables  N. 

The  optimal  solution  variable  and  objective  function 
values  are  placed  in  X(j)  and  written  on  logical 
unit  6  if  desired  (LPSOL  input  parameter  kk  =  0) . 

If  an  optimal  solution  was  not  reached,  an  appropriate 
error  message  is  written.  A  sample  of  the  card  input 
of  variable  names  (VNAME(J,.))  required  by  LPSOL  appears 


in  table  B-l. 
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j  .  3  Pr  ocedur  e 

The  procedure  followed  is  that  suggested  by 
Dantzig  (25),  Subroutine  CANON  prepares  the  tableau 
ror  the  simplex  method,  subroutine  TPHSIM  solves  the 
L.P,  problem  using  the  two-phase  simplex  method  and 
LPSOL  handles  the  solution  output. 
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C  SUBROUTINE  INIT 

C  SUBROUTINE  INIT 

PURPOSE 

MODIFICATION  OF  INPUT  MODEL  DATA  TO  ACCOUNT  FOR 
RANGES  SPECIFIED  ON  COSTRAINT  REQUIREMENTS  VECTOR 

sic############ 

SUBROUTINE  INIT 


COMMON  A(4,15,15),Y<4,15,11) , D ( 4 , 6 , 1 5 ) , CPROD ( 10,4,6), 
1C  INS ( 10,4,15) ,CREDVA( 10, 11 ) ,FDC0ST(4,  11 ) , 

1 OPCOST (4,15) , VALPRO (4 ,6 ) ,CON (4 ) ,RHS ( 10 ) ,RNGE ( 10 ) , 
1GBND{4, 15,2) ,PBND( 4,6,2 ) , FBND ( 11,2), SEL,NCODE(  10 ) , 
1NC0MP,NPR0,NG,NF,NC0N,NB,NR 
COMMON/ LP/  COO,  60)  ,RH  (3  0)  ,CZ(25)  ,VNAME(  25,3)  , 
1X(25),NC(30) ,M,N,NBAS (60) ,NPH,NS 

C  IF  THERE  IS  NO  RANGE  DATA,  RETURN 

IF(NR)  11,11,4 
M  =  NC  ON 

C  ADDITION  OF  CONSTRAINT  TO  ACCOUNT  FOR  EACH  RANGE  ON  A 
C  REQUIREMENT 

4  DO  10  J=1 , NCON 

I F ( RNGE ( J ) -0 • 0001  )  10,10,5 

5  M=  M+ 1 

C  NEW  REQUIREMENT,  CONSTRAINT  TYPE  CODE 

NC  ODE ( M ) =-NC  ODE ( J ) 

RHS ( M)=RHS ( J  J+RNGE ( J )  *  NC ODE (M) 

C  NEW  CONSTRAINT  COEFFICIENTS 

DO  6  K= 1 , N F 

6  CREDVA(M,K)=CREDVA(J,K) 

DO  7  K= 1 , NCOMP 

DO  8  L=1 ,NG 

8  CINS(M,K,L)=CINS(J,K,L  ) 

DO  9  L  =  1 , NP RO 

9  CPROD(M,K,L)=CPROD(J,K,L) 

7  CONTINUE 
10  CONTINUE 


C  UPDATE  CONSTRAINT  TOTAL 


tihi  i  Mjnsfli  12 


•  *  •  t  *M  f  «  .  :  ,  '  i  V  »  {  <  i  •  .!  ,  A )  A  V  •  ? 

«(iifOiuvn^)»o«(a  . 

n  (v')  -  t'vM  s  f  i  S'  i  A )  i  )>;«>  jj<  ,  I  f ,  A  )T2')0'  n  f 

f  ♦  '  •  )  .  (  C*|  f  «  ,  ,  )  •  f 

»i' , am  wo;  n,  ^ , omnaRo, rmooh  i 

•  •  ->  ?  hv,  (  .  )  >  \q  i \  v?  ip, 

?  tHMk  ,  { !,-  « (0€) DM, (251X1 

*  f  AT  -lr>  Afl  0  21  HHT  RI 

miNii  (wm 

XOR  MUO.OA  'IT  TIM AHT2  n  j  }  MOITIOOA 

r  MRflfOQRfl 

nuj^i-t  ox  on  * 

» or  f  {  <  rooo. o-u  > h,™  h  n  i  v 

I+M*H  2 

I  w  ■  2  O  ♦  i  '  -i"  •  t  '••  0 

(  i  )  )003  >-«<*) -00$* 

)  -  1  (U  HU)11  I*-  (1)2  i 

2TMfIDIRRR0D  TMIA*T2*00  W3K 

3mi»X  2  no 

(X*LWVf  R#;x>t  )AV0R*3  d 
^ODW*  -X  T  00 
«>;,  i*j  h  OCI 

»  t  >2  !  3-  '  »  )■  1 0  H 

C  , f  o  p  no 

(  .  ♦  X,  UdOHROa  Uf  X,  1  >00890  p 

3UWITM0D  01 


J  1  T  1  i  ?<  •  1  ■  '  i) 


c 


SUBROUTINE  INIT 


... (CONT'D) 


NCON=M 
II  RETURN 
END 
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C  SUBROUTINE  COEFF 

C  SUBROUTINE  COEFF 

PURPOSE 

TO  CALCULATE  THE  COEFFICIENT  MATRICES  FOR  THE 
SYSTEM  MODEL  TRANSFORMATION  EQUATIONS  WHICH 
EXPRESS  INTERNAL  AND  PRODUCT  STREAM  RATES  IN 
TERMS  OF  EXTERNAL  FEED  RATES 

SUBROUTINES  REQUIRED 
ARRAY,  MINV 

Jjcsie  sjcsjtjjeajssjs  ajcsjcsje  ajs#  j{cs{«s}sa}c  j{e  sjcs}:  #3}c3{s:{c  #3}:  :{e  sjesjc jSsjJs  #  ## 


SUBROUTINE  COEFF ( B I Y , DB I Y ) 


REAL  BIY(4,15,11 ) , DB I Y ( 4 , 6 , 1 1 ) 

DIMENSION  B(15,15),WV(6),IW1(15),IW2(15) 

COMMON  A(4,15,15),Y(4,15,11) , D ( 4 ,6 , 1 5 ) , CPROD ( 10,4,6), 
1C  I  NS ( 10,4,15) ,C RED VA ( 10, 11 ) ,FDC0ST(4, 11 ) , 

1 OPCOS  T ( 4 , 1 5 )  , VALPRO (4,6 ) ,C ON ( 4 ) , RHS ( 10 ) , R NGE ( 10 ) , 
1GBND(4, 15,2) , PBND (4 ,6 ,2 ) , FBND ( 1 1 , 2 ) ,  SEL , NCODE  (  10 ) , 
1NC0MP,NPR0,NG,NF,NC0N,NB,NR 

C  GENERATE  COEFFICIENT  MATRIX  FOR  INTERNAL  STREAM  EQUATION 
I DB=1 5 

4  DO  100  I =1 ,NCOM P 

C  SET  UP  ITH  DIAGONAL  BLOCK  OF  PARTITIONED  B  MATRIX 

DO  10  J=1 ,NG 
DO  10  K  =  1 , NG 
B( J,K)=-A( I , K  ,  J  ) 

IF(J-K)  10,5,10 

5  B(J,K)=B(J,K)+1  . 

10  CONTINUE 

I F (  I.EQ.l)  B (4,3 )=B (4,3 )-A( 1,3,4)*C0N(  1) 

C  INVERT  MATRIX 
M0DE=2 

CALL  ARRAY( MODE ,NG,NG , I DB , IDB, B, B) 

CALL  MINV(B,NG,DET,IW1,IW2) 

IF(DET)  15,11,15 

11  WR IT  E ( 6 , 1000 ) 

1000  FORMAT! 1H0,12X, 'NO  INVERSE') 

STOP 

15  MODE= 1 
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C  SUBROUTINE  COEFF  ...(CONT'D) 

CALL  ARRAY (MODE ,NG,NG, IDB , IDB, B,B ) 

C  CALCULATE  COEFFICIENTS 

DO  20  J=1,NG 
DO  20  K=1,NF 
BIY( I,J,K)=0. 

DO  19  L=1,NG 

19  BIY ( I , J,K) =B IY ( I ,J ,K)+B ( J,L  >*Y ( I , L,K ) 

20  CONTINUE 

C  INSERT  REACTION  CONVERSION  TERMS 

I F (CON ( I ) )  100,100,25 
25  CS=A ( I ,3,4)*C0N (4) 

DO  30  J=1 ,NF 
CSP=CS*BIY(1,3, J) 

DO  30  K=1 , NG 

BIY( I,K,J)=BIY(I,K,J)+B(K,4)*CSP 
30  CONTINUE 
100  CONTINUE 

C  GENERATE  COEFFICIENT  MATRIX  FOR  PRODUCT  STREAM  EQUATION 

280  DO  300  I =1 ,NCOM P 
DO  300  J=1 ,NF 
DO  290  K=1 ,NPRO 
WV ( K ) =0* 

DO  290  L=1 ,NG 

WV(K)=WV(K)+D(I,K,L)*BIY(I,L,J) 

290  CONTINUE 

DO  300  K  =  1 , NPRO 
DB  I Y ( I ,K, J)=WV(K ) 

300  CONTINUE 
RETURN 
END 
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C  SUBROUTINE  C0NT2 
C  SUBROUTINE  C0NT2 
PURPOSE 

TO  SET  UP  THE  REDUCED  FORM  OF  THE  LINEAR 
OPTIMIZATION  MODEL,  GIVEN  MODEL  DATA  AND  THE 
APPROPRIATE  TRANSFORMATION  EQUATION  COEFFICIENTS. 
DEPENDING  ON  IRCODE,  GENERATION  OF  OBJECTIVE 
FUNCTION  COEFFICIENTS  CAN  BE  AVOIDED 

vl<  >V  Jr  Jr  JU  Jr  Jr  Jr  Jr  Jr  Jr  sir  Jr  Jr  Jr  sir  Jr  Jr  Jr  Jr  \*r  sir  Jr  Jr  «J.r  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  sir  Jr  sir  Jr  Jr  Jr  Jr  Jr  Jr 

rjs  r,s  rjs  rp  r^s  3|s  rys  r|s  ijs  r|S  rj  rjs  r,s  rys  r,.  J|S  rjs  r,»  r,s  *js  r^  rjs  rp  rp  rp  rp  rp  rp  J,s  ip  rp  rp  r,\  rp  rp  r,s  rp  rp  r,S  rp  Jp  rp  rp  rp  rp  rp  ip  rp  rp  rp  rp 

SUBROUTINE  C0NT2 ( IRCODE ,B IY ,DBIY ) 


REAL  B I Y ( 4,15,11 ) ,DBIY (4,6, 11 ) 

COMMON  A(4, 15,15 ) ,Y (4,15, 11) , D ( 4 , 6 , 1 5 ) , CPROD ( 10,4,6) , 
1C  INS ( 10,4,15) ,CREDVA( 10, 11 ) , FDCOST ( 4, 1 1 ) , 

1 0PC0S  T ( 4 , 1 5 ) , VALPRO (4 ,6 ) ,C ON (4 ) , RH S ( 10 ) , R NGE { 10 ) , 
1GBND(4, 15,2) , PB ND ( 4 , 6 , 2 ) , FBND ( 1 1 , 2 ) , SEL , NC0DE ( 10) , 

1 NC0MP, NPR0 ,NG»NF ,NC0N,NB»NR 
COMMON/ LP/  COO, 60)  ,RH  (30)  ,CZ  (25  )  ,VNAME(  25,3)  , 

1 X ( 2  5 ) , NC (30)  ,M,N,NBAS (60) ,NPH,NS 

C  OMIT  OBJECTIVE  FUNCTION  COEFFICIENTS  IF  DESIRED 

IF(IRCODE-l)  100,100,202 

C  OBJECTIVE  FUNCTION 

100  DO  400  J=1 , NF 
CZ( J)=0. 

DO  400  K  =1 , NC 0MP 
SUM=0 • 

DO  399  L  =1 , NG 

399  SUM=SUM+Y (  K  ,  L  » J ) 

CZ( J)=CZ( J)+SUM*FDC0ST(K, J) 

400  CONTINUE 

190  DO  200  I =1 , NC 0MP 
DO  200  J  =  1  ,NG 
DO  200  K  =1 , NF 

CZ(K)=CZ( K)+0PC0ST( I , J )*B IY (I , J,K  ) 

200  CONTINUE 

DO  310  1=1  ,NC0MP 
DO  310  J=1 , NPR0 
DO  310  K=1 ,NF 

CZ(K)=CZ(K)-VALPR0<I ,J )*DBIY ( I , J , K ) 

310  CONTINUE 


C  CONSTRAINTS 
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C  SUBROUTINE  CONT2 


...(CONT'D) 


202  M  =  NC ON 

C  REQUIREMENTS  VECTOR,  CONSTRAINT  TYPE  CODE  VECTER 

405  DO  410  J  =  1  ,NCON 
RH ( J )  =  RHS ( J ) 

NC( J)=NCODE< J) 

C  FEED  STREAM  CONSTRAINT  COEFFICIENTS 

DO  410  K=1 ,NF 

410  C( J,K )=CREDVA ( J,K ) 

C  FEED  STREAM  BOUNDS  -  CONVERT  TO  CONSTRAINTS 

IF(NB)  204,204,411 

411  DO  440  J=1 ,NF 

I F ( FBND( J,2 )-0.01 )  440,440,415 
415  M=M+ 1 

DO  430  K=1,NF 
430  C ( M, K ) =0 • 

C ( M, J ) =1 . 

RH( M)=FBND( J  ,1  ) 

NC(M)=(3-FBND( J,2 ) )*(3*FBND( J,2)-4) /2. 

440  CONTINUE 

C  INTERNAL  STREAM  CONSTRAINT  COEFFICIENTS 

204  DO  210  I=1,NC0N 
DO  210  J=1 , NC  OMP 
DO  210  K=1,NG 

I F ( C  INS (  I  ,  J  »K  )  )  205,210,205 

205  DO  209  L=1 ,NF 

209  C(  I , L  )=C(I ,L)+CINS (I , J,K )*BIY( J,K, L) 

210  CONTINUE 

C  INTERNAL  STREAM  BOUNDS  -  CONVERT  TO  CONSTRAINTS 

IF(NB)  311,311,211 

211  DO  230  I =1 , NC  OMP 
DO  230  J  =  1 ,NG 

IF(GBND( I ,J ,2 )-0.01 )  230,230,215 
215  M=M+ 1 

DO  220  K  =1 , NF 
C<  M,K)  =  BIY( I , J  ,  K ) 

220  CONTINUE 

RH ( M ) =GBND ( I , J , 1 ) 

NC ( M )  =  ( 3-GB  ND ( I,J,2 ) )*( 3*GBND ( I ,J,2)-4)/2 
230  CONTINUE 
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C  SUBROUTINE  CONT2 


•  •  • 


(CONT' D) 


C  PRODUCT  STREAM  CONSTRAINT  COEFFICIENTS 

311  DO  320  I =1 , NC ON 
DO  320  J  =  1 ,NCOM  P 
DO  320  K  =1 ,  NPRO 
I F ( C PROD (  I  ,  J  ,  K  )  )  315,320,315 
315  DO  319  L  =1 , NF 

319  C ( I , L ) =C (  I,L)+CPROD(I,J,K)*DBIY(J,K,L) 

320  CONTINUE 

C  PRODUCT  STREAM  BOUNDS  -  CONVERT  TO  CONSTRAINTS 

IF(NB)  350,350,321 

321  DO  340  I =1  ,NCOM P 
DO  340  J=1 , NPRO 

IF( PBND( I  ,J, 21-0.01  )  340,340,325 
325  M=  M+ 1 

DO  330  K  =  1 , NF 
330  C ( M, K ) =DB I Y ( I ,J,K ) 

RH ( M ) =PBND ( I , J , 1 ) 

NC(M)=(3-PBND( I , J ,2 ) ) * ( 3*P BND ( I , J,2)-4) /2 
340  CONTINUE 

C  DEFINE  NO.  OF  VARIABLES,  PROBLEM  TYPE  CODE 

350  N=NF 

NC  (  M+ 1  )  =-l 

RETURN 

END 
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2.  DOCUMENTATION 

Subroutines  INIT,  COEFF  and  C0NT2  generates  the 
standard  form  of  the  reduced  optimization  model  and 
specifies  the  entries  in  the  COMMON  block  /LP/, 
required  for  solution  by  the  two-phase  simplex  algorithm 
(Appendix  D) , 

Subroutine  INIT  modifies  the  model  data  read  by 
INPUT  by  converting  any  ranges  specified  on  the  require¬ 
ments  vector  to  additional  constraints. 

Subroutine  COEFF  generates  the  coefficients 
of  the  required  transformation  equations: 

g  =  B~ 1  fx  Y*  (B-l ) 

pr  =  T*B_1  fx  Y*  (B-2 ) 

and  stores  them  in  arrays  BIY  and  DBIY .  The  matrix 
inverse  B  ^  is  required.  So  doing  for  the  inverse  by 
partitioning  the  matrix  enables  more  efficient 
calculation  of  the  inverse  since  B  is  sparse,  and,  for 
this  process,  block  lower  triangular. 

Subroutine  C0NT2  generates  the  objective  function 
and  constraint  matrix  for  the  reduced  problem,  converting 
bounds  into  additional  constraints,  and  stores  the 
required  information  in  the  COMMON  block  /LP/. 
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C  MAINLINE  —  D.P. 

C  MAINLINE  —  D.P.  DETERMINISTIC  PROBLEM 

C  PURPOSE 

C  TO  FIND  A  SOLUTION  TO  THE  DETERMINISTIC 

C  OPTIMIZATION  MODEL,  BUTADIENE  AREA 

C 

C  SUBROUTINES  REQUIRED 

C 

C  INPUT  -  IMINP1,  MINP1,  MINP2,MINP3 

C  IN  IT 

C  VAL  -  COEFF,  CONT2 ,  CANON,  TPHSIM,  LPSOL,  STPRNT 

C  BPSH  -  VAL  (DUMMY  NAME  FCT ) ,  BPSOUT 

C 

c  a*#######*##* 

C 

C  SPECIFICATION  OF  VARIABLES  REQUIRED  FOR  BPSH 
EXTERNAL  VAL 

REAL  B( 5)  ,T( 5 ) ,  DX  ( 5 ) ,DXM(5) , BND ( 2 , 5 ) 

C  COMMON  SPECIFICATION,  MODEL  DATA 

COMMON  A(4»15,15) ,Y (4,15,11 ) ,0(4,6,15) ,CPROD( 10,4,6) , 
1C  INS ( 10,4,15) ,CRED VA (10,11 ) ,FDCOST( 4, 11 ) , 

1 OPCOST (4,15) ,VALPR0(4»6) ,C0N(4  )  ,RHS( 10  )  , RNG E ( 10  )  , 
1GBND(4,15,2) ,PBND (4,6,2 ) , F BND ( 1 1 , 2 ) , S EL, NCODE ( 10 ) , 
1NC0MP,NPR0,NG,NF,NC0N,NB ,NR 

C  COMMON  SPECIFICATIONS,  REQUIRED  BY  SUBROUTINE  VAL 

COMMON  /V/  I V ( 5  » 3  )  ,NF I N 

COMMON  /LP /  CM(30,60 ) ,RH(30) ,CZ ( 25 ) , VNAME( 25, 3) , 

IX ( 25) ,NC( 30) ,M,NCOL ,NB AS (60 ) ,NPH,NS 

C  INPUT  -  OUTPUT  FORMATS 

1  FORMAT (3110) 

2  FORMAT ( 5G1 5.5) 

3  FORMAT( • 1 • ////13X, 'THIS  IS  THE  OPTIMAL  SOLUTION1) 

4  FORMAT ( • 1FINISHED • ) 

5  FORMAT ( 3A4 ) 

105  FORMAT( » 1* ////13X, 'PATTERN  SEARCH  SOLUTION' //15X 
*, 'VARIABLE' , 

15X, 'INITIAL', 5X, 'MINIMUM' , 6X , 'UPPER ' , 7X , • LOWER • /27X 
*, 'STEP  SIZE' 

2,3X, 'STEP  SIZE' ,5X, 'BOUND' ,7X, 'BOUND* /) 

106  FORMAT( 13X,' A ( I , • ,12, ' , • ,12, • )  '  , 2G12. 4 , F9. 2, FI  2. 2 ) 

107  FORMAT( 'O' ,12X, 'MAXIMUM  NO.  OF  CYCLES  =',I5//13X 
*, 'EPSILON  =• , 

1G10.3) 
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C  MAINLINE  —  D.P.  ...(CONT'D) 

108  FORMAT( 'O'  ,12X,  ' INITIAL  SOLUTION') 

C  INPUT  OF  DATA  FOR  PATTERN  SEARCH,  INITIALIZATION 

READ( 5, 1 )  N ,M IT 
DO  10  J  =  1 , N 

10  READ( 5,1)  (  IV  (  J,K  )  ,K  =  1,3) 

READ ( 5 , 2 ) (B(J),J=1,N) 

R  EAD ( 5,2 )  (DX(J),J  =  1,N) 

READ( 5,2)  ( DXM ( J ) , J  =  1 , N ) 

DO  12  K=1 ,2 

12  READ( 5,2)  ( BND (K,J ) ,J=1,N) 

R  EAD ( 5 , 2 )  EPS 

13  CONTINUE 

C  INPUT  OF  VARIABLE  NAMES  FOR  L.P.  OUTPUT 
DO  20  J=1 ,21 

20  READ( 5, 5 )  ( VNAME ( J ,K ) ,K=1 ,3 ) 

C  INPUT,  INITIALIZATION  OF  MODEL  DATA 

CALL  INPUT 
CALL  INIT 

C  OUTPUT  OF  INITIAL  CONDITIONS 

NF I N=2 
WRITE! 6, 105) 

WRITE(6,106) (  (IV(J»K),K=1,2) , DX ( J ) , DXM ( J ) , ( BND  (  L  ,  J  ) 
*,L=1,2 ) , J=1 ,N ) 

WR I T  E ( 6 , 1 07 )  MIT, EPS 
WR  ITE ( 6, 108 ) 

CALL  VAL ( F ,B ,N ) 

C  PATTERN  SEARCH  SOLUTION 


NF I N=-l 

CALL  B  PSH( VAL,B,DX,DXM,T ,BND,EPS,N,MI  T,  I  ER  ) 
I  F (  IER.EQ.-l )  STOP 

C  OUTPUT  OF  OPTIMAL  SOLUTION 

NF  I  N= 1 
WRITE! 6,3) 

CALL  VAL(F,T,N) 

WR ITE( 6,4) 

STOP 

END 


.  ... 

<  ’  1  J  '  i  t  •  .  ’  X  .  •  '  1  T  Tl  I 

1  .  ,  • 

T  ■  ••  f  ’ 

<y  •!  =  »'(  .  u  f  i  kia^a  c  i 

.  .  .  •  •  •  * 
f  It  !  •  L  •  /r  )  l  s  .  1HA 

»  ‘It  ■  (  ,  ) 

s  x  rin 

»  ♦  1 1  • »)  •->  .  x 

eqi  (  '(  a  ^ 

3UWJTM0D  ex 

T’  u:l  T  it)  .H.J  A03  23MA.4  3J8AIAAV  30  TUAMf 

r  .  i  ~  l  (  s  <-'i 

(£»!*>, (>tb)  AWV)  (rfa> 0A3A  OS 

i  AC  J3  uM  --  •  i:  f;  S  A 1  T I  I  tTtl<?v  X  0 

TU<WI  JJ  AD 
TIMf  JJAD 

2  OITKi  OD  JAITI  If  30  ruqTuo  D 


(^oi  ,ami*w 

♦ (  ‘  •  1  '  ■ '  »  <  t  j  .  '  s' .  I  -  >  f  (  A  ,  I  )  v  r  )  )  <  I  ,  A  )  n  i  .MW 

(  f»Lt(S«  1»J** 

'q=),T  (T  [t<*)3Tf  W.< 
<80i,rt)?TIPW 
<  .  »  3  )  JAV  JJ  A'O 

>  IJ.  D-  <  >  I  3  i  ;  . 

J-s =  *H3H 

1  •  f  t  .  t.  »  T  *  0,  <  ,8,  JAV)H?30  JJAD 

3  a  (  i-.i.  3.'  i  )3 r 

UnlTtljn?  JAM  I  T30  30  TMMTUO  d 


X«MI3V1 
(  ■  .A  >  •  ,*> 

<  .T,  )JA  JJAD 

(  *  t*)3TI  >-W 
9QT2 
C!VI3 


ooooooooooooo 


F- 


3 


C  SUBROUTINE  BPSH 

C  SUBROUTINE  BPSH 

PURPOSE 

TO  FIND  A  LOCAL  MINIMUM  OF  A  FUNCTION  OF  SEVERAL 
VARIABLES  BY  THE  METHOD  OF  HOOKE  AND  JEEVES 

USAGE 

CALL  BPSH(FCT ,  B  ,  DX  ,  DXM  , T  ,  BND  ,  E P S  ,  N ,  MI T,I ER ) 
PARAMETER  FCT  REQUIRES  AN  EXTERNAL  STETEMENT 

SUBROUTINES  REQUIRED 
FCT  y  BPSOUT 


SUBROUTINE  BPSH (FCT  ,B , DX  ,DXM , T , BND , EPS , N , M I T , I ER ) 
REAL  B(5),T(5),DX(5),DXM(5 ) , BND ( 2,5) 

C  INITIALIZE  COUNTERS  AND  FLAGS 

I  E  R  =  0 
KK=  1 
K  =  0 
I  T  =  0 

C  INITIALIZE  TEMPORARY  HEAD  VECTOR 

CALL  FCT(FX,B,N) 

FT  =  FX 

DO  10  J=1 r N 
10  T ( J ) =B ( J ) 

C  START  ITERATION  LOOP 
C 

C  PRINT  PATTERN  STATUS  IF  DESIRED 

15  CALL  BPSOUT(FT,T,N,IT,KK,K,IER) 

I T= I T+ 1 

C  TEST  ITERATION  COUNTER 

I  F (  IT.GT.MIT )  GOTO  90 

C  PATTERN  PERTURBATION  TO  IMPROVE  FUNCTION  VALUE 
DO  50  J  =  1 f N 


C  POSITIVE  PERTURBATION 
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C  SUBROUTINE  BPSH  ...(CONT'D) 

TT=T ( J ) 

IF(TT.GE.BND(1 ,J )-EPS )  GOTO  20 
D=T ( J ) +DX ( J ) 

IF(D.LE.BND(1,J) )  GOTO  18 
D=BND (  1  ,  J  ) 

18  T ( J ) =D 

CALL  FCT(FN,T,N) 

IF(FN.LE.FT-EPS)  GOTO  40 
T ( J ) =TT 

C  NEGATIVE  PERTURBATION 

IF(TT.LE.BND(2, J  )+EPS  )  GOTO  50 
20  D=T ( J ) -OX ( J  ) 

IF(D.GE.BND(2,J  )  )  GOTO  30 
D=BND( 2, J) 

30  T ( J  )  =D 

CALL  FCT (  FN  ,T  ,  N ) 

IF( FN.LE. FT-EPS )  GOTO  40 
T ( J ) =TT 
GOTO  50 
40  FT  =  FN 
50  CONTINUE 

C  TEST  FOR  FUNCTION  VALUE  IMPROVEMENT 

I F( FT.GT. FX-EPS )  GOTO  (82,70),KK 

C  EXTEND  PATTERN, DEF INE  NEW  BASE  POINT  AND  INITIAL 
C  TEMPORARY  HEAD 

KK  =  1 
K  =0 

DO  60  J  =  1  ,  N 
D  =  T ( J  ) 

T(  J)=2.0*T( J ) -B ( J  ) 

I  F(T( J) .GT .BND( 1  ,  J  )  )  T ( J )  =  BND ( 1, J  ) 

IF(T( J).LT.BND(2,J  )  )  T ( J ) =BND ( 2 , J ) 

B ( J  )  =D 
60  CONTINUE 
FX=  FT 

CALL  FCT ( FT  ,T ♦ N ) 

C  END  ITERATION  LOOP 
GOTO  15 

C  NO  IMPROVEMENT  OVER  BASE  POINT,  DECREASE  STEP  SIZE 


70  K  =  0 
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C  SUBROUTINE  BPSH  ...(CONT'D) 

DO  80  J=1 , N 

I  F  (  DX  (  J)  .LE.DXMU  )+EPS)  GOTO  80 
K  =  1 

DX( J)=DX( J)/2* 

I F ( DX ( J).LT.DXM(J) )  DX(J)=DXM(J) 

80  CONTINUE 

C  IF  REQUIRED,  BEGIN  NEW  CYCLE 
IF(K.GT.O)  GOTO  15 

C  STEPSIZE  AT  MINIMUM,  SEARCH  CONVERGED 
I ER=  IT 

C  PRINT  SOLUTION  STATUS  IF  DESIRED,  END  SEARCH 

CALL  B PS OUT { FT ,T ,N,IT ,KK,K,IER) 

B ( 1 )=FT 
RETURN 

C  NO  IMPROVEMENT  OVER  INITIAL  TEMPORARY  HEAD, PATTERN 
C  DESTROYED,  RETREAT  TO  BASE  POINT 

82  DO  85  J  =  1  ,  N 
85  T(J)=B(J) 

KK  =  2 
FT  =  FX 


C  BEGIN  NEW  CYCLE 
GOTO  15 

C  NO  CONVERGENCE  IN  MIT  ITERATIONS,  PRINT  SOLUTION  STATUS, 
C  END  SEARCH 

90  IER=-1 

CALL  B  PS  OUT  (  FT  ,T  ,N,IT  ,KK»K,IER) 

B ( 1 ) =FT 

RETURN 

END 
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C  SUBROUTINE  BPSOUT 
C  SUBROUTINE  BPSOUT 
PURPOSE 

TO  PRINT  STATUS  OF  PATTERN  SEARCH  FOR  OPTIMAL 
SPLIT  FACTORS,  PRIOR  TO  EACH  NEW  CYCLE  AND 
AFTER  COMPLETION 


SUBROUTINE  BPSOUT (F,B,N,IT,KK,K,IER) 

REAL  B(l) 

100  FORMAT! ' 1' ,12X, 'PATTERN  SEARCH  FOR  OPTIMAL  SPLIT 
*  FACTORS'//) 

101  FORMAT! 12X, 'CYCLE  NO.  =',I5) 

102  FORMAT! 12X, 'CONT INUAT ION  NO  IMPROVEMENT,  RETREAT,  • 

1 , »  PATTERN  DESTROYED' ) 

103  FORMAT! 12X,' HALVE  STEP  SIZE') 

104  FORMAT! 17X, • FUNCT ION  VALUE  = • , G 1 3. 5 /I 7X , 

1 ' SPLIT  FACTORS  = ' , 5 ( F 10  •  5 , / 33X  )  ) 

105  FORMAT! 12X, 'TOO  MANY  ITERATIONS,  SOLUTION  TERMINATED') 

106  FORMAT! 12X,' SEARCH  COMPLETED') 

C  PRINT  TITLE 

IF! IT.EQ.O)  WRITE(6,100) 

C  PRINT  CYCLE  NO. 

WR IT  E ( 6 , 101 )  IT 

C  IF  NO  IMPROVEMENT  RESULTED,  PRINT  ACTION  TAKEN 

I F( KK+K .E0.2 )  WRITE(6,102) 

IF(K.EQ.l)  WR I TE ( 6 , 103  ) 

C  PRINT  FUNCTION  VALUE,  SPLIT  FACTORS  —  NEW  INITIAL 
C  TEMPORARY  HEAD 

WR I T  E ( 6 , 1 04 )  F,  (B(J),J  =  1,N) 

C  IF  SEARCH  TERMINATED,  PRINT  MESSAGE 

IF!  IER.EQ.-l  )  WR ITE ( 6 , 105  ) 

IF! IER.GT .0)  WRITE(6,106) 

RETURN 

END 
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C  SUBROUTINE  VAL 

C  SUBROUTINE  VAL 


PURPOSE 

TO  EVALUATE  THE  OBJECTIVE  FUNCTION  FOR  A  SPECIFIED 
TO  EVALUATE  THE  OBJECTIVE  FUNCTION  FOR  A 
SPECIFIED  SET  OF  SPLIT  FACTORS 


SUBROUTINES  REQUIRED 

COEFF,  CONT2,  CANON,  TPHSIM,  LPSOL,  STPRNT 

jjc  jjs  jjt  5jc  ^  jjc  5^  jjc  ^  ijs  5,*  jfc  ijc  jjt  j{s  ?{£  jjc  iji  5*C  5jc  2^  5=‘c  jjc  ?JC  jjc  j{j  iJC  5|c  ?jc  SjC  j|c  >JC  5{c 


SUBROUTINE  VAL(F,S,NN) 

REAL  S ( 5 ) 

REAL  BIY(4, 15,11  )»DBIY(4»6,11) 

COMMON  A(4,15,15),Y(4,15,11),D(4,6,15) ,CPROD(  10,4,6) , 
1C  INS ( 10,4,15) ,CREDVA ( 10 , 11 ) ,FDCOST( 4,  11 )  , 

10PC0STI4, 15) ,VALPR0(4,6) ,C0N(4) ,RHS( 10) ,RNGE( 10) , 
1GBND(4,15,2)  ,PBND(4,6,2  )  ,FBND( 11 ,2) , SEL, NCODE( 10 ) , 
1NC0MP,NPR0,NG,NF,NC0N,NB,NR 
COMMON  /V/  IV  (5,3  )  »NF IN 

COMMON/ LP/  C(30,60)  ,RH  (30  )  , CZ ( 25 ) ,VNAME( 25,3) , 
1X(25),NC(30) ,M ,N,NBAS (60 ) ,NPH,NS 
100  FORMAT( /( 15X, • A ( I , ' , 12 t ' ,  '  ,  12,  •  )  •  ,  F 16 . 5  )  ) 

C  INSERTION  OF  SPLIT  FACTORS  INTO  MODEL  DATA 

5  DO  10  J  =  1  ,  NN 
DO  10  K=1 , NCOMP 
A(K,  IV( J, 1 ) , I V ( J,2 ) )=S ( J) 

A(K, IV(J,1)  ,IV(J,3)  )  =  1  • 0-S ( J ) 

10  CONTINUE 

11  CONTINUE 

C  GENERATION  OF  MODEL  DATA  FOR  THE  REDUCED  FORM  OF 
C  THE  L.P.  PROBLEM 

CALL  COEFF ( B IY , DB I Y ) 

CALL  C 0NT2 ( 1,BIY,DBIY) 

C  GENERATION  OF  L.P.  PROBLEM  AND  CANONICAL  FORM,  AND 
C  SOLUTION  BY  THE  TWO  PHASE  SIMPLEX  ALGORITHM 

CALL  CANON 
CALL  TPHSIM 
F=RH ( M+ 1 ) 


C  OUTPUT  OF  RESULTS  ON  PRINTER  IF  DESIRED 
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SUBROUTINE  VAL 


.  .  .  (CONT  «D) 


IF(NFIN)  20,30,40 
20  CALL  LPSOL(O) 

30  RETURN 
40  CALL  L  PS  OL (  I) 

WRITE(6,100)((IV(J,K),K=1,2),S(J),J=1,NN> 
IF(NFIN.EQ.l)  CALL  STPRNT ( BI Y ,DBIY ) 

RETURN 

END 
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C  SUBROUTINE  STPRNT 
C  SUBROUTINE  STPRNT 
PURPOSE 

TO  EVALUATE  AND  PRINT  INTERNAL  AND  PRODUCT 
STREAM  FLOW  RATES,  AND  TRANSFORMATION  EQUATION 
COEFFIC IENTS 


SUBROUTINE  ST PRNT ( B I Y , DB I Y ) 

REAL  BIY(4,15,11),DBIY(4,6,11),G(4,15),P(4,6) 
COMMON/ LP/  C (30,60  )  ,RH  (3  0  )  ,CZ ( 25 ) , VNAM E ( 25 , 3 ) , 
1 X ( 25) ,NC (30)  ,M,N,NBAS (60) ,NPH,NS 

102  FORMAT( //13X, • INTERNAL  STREAM  -  G ( I , J ) • / 

116X, • J • ,3X, *  I  =  ' , 4 { I  5 , 5X ) / ) 

103  FORMAT( //13X, • PRODUCT  STREAMS  -  P ( I , J ) • / 

116X, • J • ,3X, • I  =  * , 4 ( I  5 , 5X ) / ) 

104  FORMAT( 12X , I  5 ,2X ,4F10 . 5 ) 

C  EVALUATE  INTERNAL  AND  PRODUCT  STREAMS 

DO  50  1=1 ,4 
DO  45  J=1 , 1 5 
G (  I , J  )  =0*0 
DO  45  K  =  1 , 1 1 

45  G(I,J)=G( I,J)+BIY(I ,J,K)*X(K) 

DO  50  J  =  1 , 6 
P ( I , J ) =0. 0 
DO  50  K=1 » 1 1 

50  P ( I , J  )  =  P ( I  , J ) +DB I Y (  I  ,J  ,K  )*X  (K  ) 

C  PRINT  RESULTS 

WR  I T  E ( 6 , 1 02 )  (1, 1=1, 4) 

DO  60  J=1 ,15 

60  WR IT  E ( 6 , 104 )  J,  ( G ( I  ,J)  ,1=1,4) 

WR  ITE ( 6, 103 )  (I, 1=1, 4) 

DO  70  J=1 ,6 

70  WR ITE ( 6, 104 )  J  ,  ( P ( I , J  )  , I  =  1 , 4 ) 

RETURN 

END 
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2 .  TABLES 


INPUT  DATA  FOR  PATTERN  SEARCH  INITIALIZATION 
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TABLE  F-2 . 

Initial  Conditions,  Intermediate  Results 


PATTERN  SEARCH  SOLUTION 


VAR  I  ABLE 

INITIAL 

MINI  MUM 

UPPER 

LOWER 

STEP  SIZE 

STEP  SIZE 

BOUND 

BOUND 

A  (  I  •  1  1  * 

5  ) 

0.64  OOE-O  l 

0  •  1  000E-02 

1 . 00 

0.0 

A{ I , 1 2, 

3  ) 

0.6400E-0  l 

0 . 1  O00E-02 

o 

o 

. 

0 . 0 

A(  I  .  13, 

1  ) 

0.6400  E—  0 1 

0 . 1 000E-02 

1 . 00 

o 

. 

o 

A< I • 14, 

1  ) 

0.640  OE—  0 1 

0. 1000E-02 

1  .00 

o 

. 

o 

A(  I  ♦  1  S, 

1  ) 

0 .6400E-0  1 

0  •  1 000E-02 

1 . 00 

o 

. 

o 

MAX  I  MUM 

NO. 

OF  CYCLES  = 

50 

EPS  I  LON 

=  0. 

100E-05 

INITIAL  SOLUTION 


OBJECTIVE 

FUNCTION 

=  -0.2086E 

VAR  I  ABLE 

NAME 

VALUE 

FX 

I 

0 .73561 

FX 

2 

0 • l 0500 

F  X 

3 

0 .0 

FX 

4 

o 

. 

o 

FX 

6 

0 . 0 1400 

FX 

6 

0.03800 

F  X 

7 

o 

. 

o 

F  X 

8 

o 

. 

o 

FX 

o 

0.01 556 

FX 

10 

o 

. 

o 

E  X 

1 1 

0 .00700 

A  (  I  ,  1  1  , 

5  ) 

0. 50000 

A  (  I  ,  1  2  , 

3  ) 

0.80000 

A ( I , 1 3, 

1  ) 

0.00000 

A  (  I  .  14  , 

1  ) 

0 .65000 

A(I,lb, 

1  ) 

0 .05000 

•  ( 

*  .  )  A  v 

1 
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TABLE  F-2  Continued 


PATTERN  SEARCH  FOR  OPTICAL  SPLIT  FACTORS 


CYCLE  NO.  =  0 

FUNCTION  VALUE 
SPLIT  FACTORS 


-0.2086  IE-01 
0 . 5000C 

o .eoooo 

0. <30000 
0.65000 
0.05000 


CYCLE  NO.  =  1 

FUNCTION  VALUE 
SPLIT  FACTORS 


-0 . 23863E-01 
0.62800 
0  .92800 
1  .  00000 
0 .52200 
0 . 0 


CYCLE  NO.  =  2 

FUNCTION  VALUE 
SPLIT  FACTORS 


-0 .2571  3E-01 
0.82000 
1 .00000 
1 . 00000 
0.33000 
0 . 0 


CYCLE  NO.  =  3 

FUNCTION  VALUE  =  -0.25724F-01 
SPLIT  FACTORS  =  0.82000 

1 .00000 
1 .00000 
0.07400 
0.0 


CYCLE  NO.  =  4 

FUNCTION  VALUE  =  - 0 . 26 5 865-“ 0  1 
SPLIT  FACTORS  =  0.75599 

1 . 00000 
1 . 00000 
0.01000 
0.0 

CYCLE  NO.  =  5 

FUNCTION  VALUE  =  -0.26591E-01 
SPLIT  FACTORS  =  0.52799 

1  .  00000 
I . 00000 
0.01000 
0 . 0 

CYCLE  NO.  =  6 

CONTINUATION  NO  I VPROVEVENT  .  RETREAT.  PATTERN 
FUNCTION  VALUE  =  -0.26750F-C1 
SPLIT  FACTORS  =  0. 89 l 99 

1.00000 
1 .00000 
0.07400 
0.0 


DESTROYED 
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TABLE  F-2  Continued 


CYCL 
HAL  V 


E  NO.  =  7 

E  STEP  SIZE 
FUNCTION  VALUE 
SPLIT  FACTORS 


-0 .26750E-01 
0.691  T9 

I . ccooo 
1 .00000 
0. C7400 
0.0 


CYCLE  NO.  =  8 

FUNCTION  VALUE 
SPLIT  FACTORS 


-0 . 26669E-0 1 
0 .75599 
1 .00000 
1 .00000 
0.07400 
0 . 0 


CYCLE  NO.  =  9 

CONTINUATION  NO  IMPROVEMENT,  RETREAT,  PATTERN 
FUNCTION  VALUE  =  -0.26763E-01 
SPLIT  FACTORS  =  0.72399 

I .00000 
1 .00000 
0 .07400 
0.0 


CYCLE  NO.  = 

10 

HALVE  STEP 

SIZE 

FUNCTI 

ON  VALUE 

SPLIT 

FACTORS 

-0 . 26783E-01 
0 .72399 
1 . C0000 
1 .00000 
0.07400 
0 .0 


CYCLE  NO.  =  11 

FUNCTION  VALUE 
SPLIT  FACTORS 


-0 . 26685E-;0 1 
0 . 75599 
1.00000 
1 .00000 
0. 1 0600 
0.0 


CYCLE  NO.  =  12 

CONTINUATION  NO  IMPROVEMENT,  RETREAT,  PATTERN 
FUNCTION  VALUE  =  -0.268C5E-01 
SPLIT  FACTORS  •=  0.73999 

1.00000 
1 .00000 
0.09000 
0 . 0 


CYCLE  NO.  =  13 

HAL V  F  STEP  SIZE 

FUNCTION  VALUE 
SPLIT  FACTORS 


-0 . 26P.C5E-01 
0. 73999 
1.00000 
1 .00000 
0.09000 
0 .0 


DESTROYED 


DESTROYED 
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TABLE  F-2  Continued 


CYCLE  NO.  =  14 

FUNCTION  VALUE 
SPLIT  FACTORS 


-0 . 26679E-01 
0 . 75599 
1  .  OOCOO 
1 .00000 
0. 09000 
0 . 0 


CYCLE  NO.  =  15 

CONTINUATION  NO  IMPROVEMENT.  RETREAT.  PATTERN 
FUNCTION  VALUE  =  -0.268C7E-01 
SPLIT  FACTORS  =  0.74799 

1.00000 
1 . 00000 
0 . 09000 
0.0 


CYCLE  NO.  = 
HALVE  STEP 
FUNCTI 
SPLIT 


16 

SIZE 

ON  VALUE 
FACTORS 


-0 .26807E-01 
0.74799 
1 . COOOO 
1 .00000 
0 . 09000 
0.0 


CYCLE  NO.  =  17 

FUNCTION  VALUE 
SPLIT  FACTORS 


-0 .268C5E-01 
0 . 73999 
1 .00000 
1  .00000 
0.09000 
0 . 0 


CYCLE  NO.  =  18 

CONTINUATION  NO  IMPROVEMENT,  RETREAT.  PATTERN 
FUNCTION  VALUE  =  -0.2681  IE-01 
SPLIT  FACTORS  =  0.74399 

1 . 00000 
1 . 00000 
0 . 09000 
0.0 

CYCLE  NO.  =  19 

HALVE  STEP  SIZE 

FUNCTION  VALUE  =  -0.26811E-01 
SPLIT  FACTORS  =  0.74399 

1 . 00000 
1 . 00000 
0. 09000 
0 .0 

CYCLE  NO.  =  20 

FUNCTION  VALUE  =  -0.26807E-01 
SPLIT  FACTORS  =  0.74799 

1 . 00000 
1  .00000 
0 . 09000 
0 . 0 


DESTROYED 


DESTROYED 
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TABLE  F-2  Continued 


CYCLE  NO.  =  21 

CONTINUATION  NO  IMPROVEMENT.  RETREAT,  PATTERN 
FUNCTION  VALUE  =  -0.2G314E-01 
SPLIT  FACTORS  =  0.74599 

1 .00000 
1 .00000 
0.09000 
0 . 0 


CYCLE  NO.  =  22 

HALVE  STEP  SIZE 

FUNCTION  VALUE 
SPLIT  FACTORS 


-0.26314E-01 
0 .74599 
1.00000 
1 .00000 
0.09000 
0.0 


CYCLE  NO.  =  23 

FUNCTION  VALUE 
SPLIT  FACTORS 


—  0.26807E  —  01 
0.74799 
1 . 00000 
1 .00000 
0.09000 
0.0 


CYCLE  NO.  =  24 

CONTINUATION  NO  IMPROVEMENT,  RETREAT,  PATTERN 
FUNCTION  VALUE  =  -0.26815E-01 
SPLIT  FACTORS  =  0.74699 

1.00000 
1 .00000 
0. 09000 
0.0 

CYCLE  NO.  =  25 

CONTINUATION  NO  IMPROVEMENT,  RETREAT,  PATTERN 
FUNCTION  VALUE  =  -0.26315E-01 
SPLIT  FACTORS  =  0.74699 

1 . 00000 
1.00000 
0.09000 
0.0 


DESTROYED 


DESTROYED 


DESTROYED 


SEARCH  COMPLETED 
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TABLE  F-3 

Verification,  Pattern  Search  Solution 


Variable  Split  Factors 


No. 

1 

2 

3 

4 

5 


Recovery  Factor 
a (i , 11 r  5) 
a (i  ,  12 , 3) 
a (i, 13,1) 
a  (i ,  14 , 1) 
3(1,15,1) 


Alternate  Initial  Conditions  Tried 


Case  No. 


1 

2 

o 

• 

o 

o 

• 

o 

1.0 

1.0 

1.0 

o 

• 

o 

1.0 

1.0 

o 

• 

o 

1.0 

Split 

Factor 

3 

4 

5 

o 

• 

o 

o 

• 

o 

o 

• 

o 

o 

• 

1 — 1 

1.0 

1.0 

o 

• 

o 

1.0 

o 

• 

o 

1.0 

o 

• 

o 

o 

• 

o 

1.0 

1.0 

o 

• 

o 

5 
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Results  -  Identical  for  All  Cases 
objective  function  =  -0.02681 


a (i , 11 , 5 ) 

=  0.747 

a (i , 12 , 3) 

=  1.0 

a (i , 13 , 1) 

=  1.0 

a (i , 14 , 1) 

=  0.088 

a (i , 15 , 1) 

=  0.0 

3.  DOCUMENTATION 

3.1  Pattern  Search  -  BPSH,BPSOUT 

Subroutine  BPSH  performs  a  Hooke-Jeeves  pattern 
search,  as  described  by  Wilde  and  Beightler  (20), 
modified  to  allow  for  the  specification  of  upper  and 
lower  bounds.  Possible  areas  of  difficulty  are 
saddle  points  and  resolution  valleys. 

BPSH  seeks  to  minimize  a  nonlinear  function 
of  from  one  to  five  variables.  It  requires  two  additional 
subroutines:  FCT ,  for  the  function  evaluation  given  a 
specified  argument,  and  BPSOUT  for  intermediate 
communication  of  search  progress  if  desired.  The 
variables  in  the  parameter  list  are  described  below; 
those  which  must  be  defined  prior  to  calling  BPSH  are 
marked  with  an  asterisk. 

FCT*  -  name  of  external  subroutine  used  for  function 

evaluation.  It  calculates  the  function  value  F, 


oi  ^  i oinummoo 
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given  an  N  dimensional  argument  vector  ARG. 
Parameter  list:  (F,ARG,N) . 

B*  -  initial  argument  vector,  dimension  N 

-  on  return,  B(l)  holds  min.  function  value 

DX*  -  initial  step  size  vector,  dimension  N 

T  -  temporary  head  vector 

-  on  return,  argument  vector  corresponding 
to  min.  function  value,  dimension  N 

BND*  -  lower  and  upper  bounds  on  argument,  dimension 
2  x  N 

EPS*  -  test  value  representing  expected  absolute 
error 

N*  -  number  of  variables 

MIT*  -  maximum  no.  of  iterations  (cycles) 

IER  -  convergence  flag 

=  -1  ,  no  convergence  in  MIT  iterations 

=  0  ,  search  continuing 

>  0  ,  convergence  in  IER  iterations 

Subroutine  BPSOUT  is  used  to  print  the  status 
of  the  search  as  it  progresses  if  desired.  The  parameter 
list  requires  information  as  follows: 

F  -  current  function  value 

B  -  current  search  base  (initial  temporary  head) 

IT  -  current  iteration  number 

=  0  prior  to  first  search 


' 
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kk  -  flag  indicating  status  of  pattern 

=1  -  continuing  as  usual 

=2  -  interrupted,  on  first  interruption 

pattern  is  destroyed, subsequent  consecutive 
interruptions,  stepsize  is  halved, 
k  -  flag  indicating  step  size  has  been  halved 

=0  no  change 

=  1  halved 

IER  -  as  above 

3.2  VAL , STPRNT 

Subroutine  VAL  calculates  an  optimal  objective 
function  value,  F,  for  the  linear  optimization  problem 
resulting  from  specifying  the  NN  variable  split  factors 
s (I) .  In  addition  to  the  NN,  and  S(I),  available  from 
the  parameter  list,  the  variables  in  COMMON  block  /V/ 
must  be  specified  as  follows: 

IV  -  for  I  =  1,2,  . NN 

th 

IV (1,1)  =  unit  no.  of  I  stream  splitter 

IV (I, 2)  =  unit  no.  destination  of  first  stream 

IV (I, 3)  =  unit  no.  destination  of  second 
stream 

NFIN  -  print  code 

NFIN  =  -1  print  L:P.  error  messages  only 


NFIN 


0  no  output 


' 


J  •/J:  t 
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NFIN  =  1  print  solutions ,  all  system 
variables 

NFIN  >  1  print  solution,  decision 
variables  only. 

Subroutine  STPRNT  calculates  and  prints  the 
dependent  system  variable  values  if  required. 

Other  subroutines  required  are  documented  in 
Appendices  D  and  E. 

3.3  Mainline  —  Deterministic  Problem 

This  program  solves  the  deterministic  problem 
using  a  combination  of  pattern  search  and  linear  prog¬ 
ramming  as  presented  in  Chapter  III,  section  C.  The 
input  data  required  are:  data  for  pattern  search 
initialization,  listed  in  table  F-l,  defined  in 
sections  3.1,  3.2;  variable  names  for  LPSOL,  21  are 
required  similar  to  those  listed  in  table  D-l;  and 
model  data  listed  in  table  C-l,  defined  in  table  C-3. 

The  mainline  prints  a  summary  of  initial 
conditions  and  BPSOUT  summarizes  intermediate  search 
results  -  these  are  listed  in  table  F-2.  The  optimal 
solution  summary  appears  as  table  9. 

Subroutines  required  are  documented  as  follows: 
INPUT  -  Appendix  C;  INIT  -  Appendix  E;  VAL,BPSH  - 
Appendix  F. 


' 
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4.  VERIFICATION  OF  SOLUTION 

The  solution  was  verified  by  solving  the 
deterministic  problem  starting  from  a  variety  of 
initial  conditions  (split  factors) .  The  results 
are  summarized  in  table  F-3.  As  can  be  seen, 
a(i,14,l)  is  consistently  0.088  rather  than  0.09 
as  above.  This  is  probably  the  result  of  a  resol¬ 
ution  valley  -  a  supposition  supported  by  the  low 
sensitivity  shown  by  this  factor  in  the  sensitivity 
analysis . 
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C 


MAINLINE  —  S • A 
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MAINLINE  —  S  •  A 


SENSITIVITY  ANALYSIS 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


REMARKS 


PURPOSE 


SUBROUTINES  REQUIRED 

INPUT  -  I M  IN  PI y  MINP1,  MINP2,  MINP3 

INIT,  COEFF,  CONT2 

CANON  ,  TPHSIM,  LPSOL 

OUTPUT 

SIN,  (SOUT) 


TO  PERFORM  A  STANDARD  SENSITIVITY  ANALYSIS  BY 
EVALUATING  THE  EFFECT  OF  SPECIFIED  PARAMETER  OR 
SYSTEM  VARIABLE  PERTURBATIONS  ON  OBJECTIVE 
FUNCTION  VALUE 


DETAILED  PERTURBATION  RESULTS  ARE  WRITTEN  ON 
LOGICAL  UNIT  1. 


C 

C  SPECIFICATION  -  TRANSFORMATION  EQUATION  COEFFICIENTS 

REAL  BIY(4»15»11 ),DBIY(4, 15,11) 

C  SPECIFICATION  -  MODEL  DATA 

COMMON  A(4,15,15),Y(4,I5,II) , D ( 4 , 6 , 1 5 ) , CPROD { 10,4,6), 
1C  I  NS ( 10,4,15) ,C  RED VA ( 10 , 1 1 ) , FDCOST ( 4, 1 1  )  , 

1 OPCOS T ( 4 , 1 5 )  , VAL PRO (4,6 ) ,COM (4 ) , RHS ( 10 ) , RNGE (  10  ) , 
1GBND(4, 15,2) , PBND (4,6,2), FBND( 1 1 , 2 ) , SEL , NCODE ( 10)  , 
1NC0MP,NPR0,NG,NF,NC0N,NB,NR 

C  SPECIFICATION  -  L.P.  DATA 

COMMON/ LP/  C (30,60 ) ,RH( 30 ) ,CZ(25 ) , VNAME ( 2 5 , 3 ) , 

IX (25) ,NC(30) ,M,N,NBAS (60) ,NPH,NS 


1  FORMA  T ( 3 A4 ) 

2  FORMAT( ' 1 ' ,/////12X , ‘REFERENCE  PROBLEM  FROM  EXPECTED 

*  DATA  »  ) 

3  FORMAT( 1 1 ' ,/////, 12X, 'PERTURBED  PROBLEM  -  PERTURBATION 

*  =  '  ,  13  ) 

4  FORMAT( ///// ,12X, ‘THE  OPTIMAL  SOLUTION  TO  THE 

*  PERTURBED' , 

1*  PROBLEM  IS' ) 

6  F0RMAT(///12X, 'THE  OPTIMAL  SOLUTION  IS') 


C  INITIALIZE  COUNTERS 
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C  MAINLINE  —  S.A.  ...(CONT'D) 

NPE  RT  =0 
NL  =  0 


C  INPUT,  INITIALIZATION  OF  MODEL  DATA 

CALL  INPUT 
CALL  INIT 

C  INPUT  VARIABLE  NAMES  FOR  LPSOL 
DO  5  J=1,NF 

READ( 5, 1 ) { VNAME ( J ,K ) ,K=1,3 ) 

5  CONTINUE 

C  SET  UP  AND  SOLVE  REFERENCE  PROBLEM 
WRITE( 6,2 ) 

CALL  COEFF ( B IY ,DB I Y ) 

CALL  C0NT2 ( 1 ,BIY,DBIY ) 

CALL  CANON 
CALL  TPHSIM 
WR  ITE ( 6, 6 ) 

CALL  LPSOL ( 1 ) 

RVAL=RH( M+l ) 

C  WRITE  SUMMARY  TITLE  BLOCK 

CALL  OUT  PUT (RVAL, OVAL, NL,N PERT) 

C  BEGIN  PROBLEM  PERTURBATION  EVALUATION 

15  NPERT  =  NPERT  + 1 
WR  ITE ( 6 , 3 )  NPERT 

C  READ  PERTURBATION  SPECIFICATION,  MODIFY  MODEL  DATA 
C  ACCORDINGLY 

CALL  S  IN ( £  1 000 ) 

C  SET  UP  AND  SOLVE  PERTURBED  PROBLEM 

CALL  COEFF ( B I Y ,DB IY ) 

CALL  C0NT2(1 »BIY,DBIY ) 

CALL  CANON 
CALL  TPHSIM 
WR  I T E ( 6,4) 

CALL  LPSOL ( 1 ) 

OVAL=RH( M+I ) 


C  ENTER  RESULTS  IN  SUMMARY  TABLE 
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MAINLINE 


S.A. 


•  •  • 


( CONT' D) 


CALL  OUTPUT ( RVAL , OVAL ,NL ,NPERT) 

C  RETURN  MODEL  DATA  TO  REFERENCE  STATA 
CALL  SOUT 

C  NEXT  PERTURBATION 
GOTO  15 

C  ALL  PERTURBATIONS  ANALYSED,  FINISH  SUMMARY  PRINT 
C  (ALTERNATE  RETURN  FROM  SIN) 

1000  NPE RT  =0 

CALL  OUT  PUT (RVAL»OVAL»NL,NPERT) 

STOP 

END 
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C 


SUBROUTINE  SIN 


C 


SUBROUTINE  SIN 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


REMARKS 


PURPOSE 


TO  READ  PERTURBATION  SPECIFICATION,  MODIFY  MODEL 
DATA  ACCORDINGLY,  AND  MAKE  APPROPRIATE  RETURN  WHEN 
PERTURBATIONS  ARE  FINISHED. 


TO  RETURN  MODEL  DATA  TO  REFERENCE  STATE,  AFTER 
EACH  PERTURBATION  IS  ANALYSED,  VIA  SECOND 
ENTRY  POINT  SOUT 


PERTURBATIONS  ARE  SUMMARIZED  ON  LOGICAL  UNIT  6 


SUBROUTINE  SIN(*) 


DIMENSION  NT (10) ,V ( 10) ,L (3 ,10) 

COMMON  A  (  4 , 1  5 , 1  5  ) ,Y (4,15,11 ) ,D(4,6,15) ,CPROD( 10,4,6) , 
1C  INS ( 10,4,15)  ,CRED VA (10,11 ) ,FDCOST( 4, 11 ) , 

10PC  OST ( 4 , 1 5 ) ,VALPR0(4,6) ,CON ( 4 ) ,RHS( 10 ) , RNG  E ( 10 ) , 
1GBND(4,15,2 )  ,PBND (4,6 ,2 ) , F  BND ( 1 1 , 2 ) , S EL , NCOD E ( 10 ) , 
1NC0MP,NPR0,NG,NF,NC0N,NB ,NR 


1  FORMAT( 110, F10.4, 3110) 

2  FORMAT( //12X, ' END  OF  DATA') 

3  F0RMAT(////T24, 'PROCESS  DATA  CH ANGES ', //Tl 6, ' CHANGE • , 
1T3  5, • FROM'  ,T47 , 'TO* / ) 

4  FORMAT ( 12X, •A(',I2,',',I2,',',I2,,)',1X,2F15.4) 

5  FORMAT ( 12X,'D(«,I2,',',I2,',',I2,')',1X,2F15.4) 

6  FORMAT ( 15X,'C ON ( ',I1,»)',3X,2F15.4) 

C  READ  PERTURBATION  SPECIFICATION  -  BASE  PARAMETER 

READ ( 5 , 1 )  N  ,  V A  L , I ,J»K 
IF(N.NE.O)  WRIT  E ( 6 ,3 ) 

M=0 

C  MAKE  APPROPRIATE  MODIFICATIONS  TO  MODEL  DATA 

GOTO( 10,20,30 ) ,N 
WR IT E ( 6 , 2  ) 

C  NO  MORE  PERTURBATION  DATA,  MAKE  APPROPRIATE  RETURN 


RETURN  1 
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C  SUBROUTINE  SIN  ...(CONT'D) 

C  MODIFY  A  RECOVERY  FACTOR 

10  V ( M+ 1 ) =  A ( I  ,J,K  ) 

A( I , J, K) =VA L 

WR IT  E ( 6 , 4 )  I  ,J,K,V(M+1),VAL 
GOTO  40 

C  MODIFY  A  PRODUCT  RECOVERY  FACTOR 

20  V(  M+l )=D(  I  ,J ,K ) 

D ( I  ,  J  ,  K  ) =  VAL 

WR  I T  E  (  6,  5 )  I  ,J,K,V(M+1) ,VAL 
GOTO  40 

C  MODIFY  A  REACTION  CONVERSION  FACTOR 

30  V ( M+ 1 ) =CON ( I ) 

CON ( I ) =  VAL 

WR IT  E { 6 , 6 )  I  * V ( M  +  l ) * VAL 
40  M=  M+ 1 

L  (  1 ,  M  )  =  I 
L(2,M)=J 
L(3,M)=K 
NT ( M)=N 

C  READ  PERTURBATION  SPECIFICATION  -  COUPLED  PARAMETER ( S ) 
READ! 5*1)  N  ,  VAL  ,  I  »J»K 

C  MAKE  APPROPRIATE  MODIFICATIONS  TO  MODEL  DATA 
GOTO! 10,20,30 ) ,N 
C  PERTURBATION  COMPLETE 
RETURN 

C  MODEL  DATA  RESTORATION  -  RETURN  MODEL  DATA  TO 
C  REFERENCE  STATE 

ENTRY  SOUT 
DO  80  JJ=1  , M 
N  =  NT ( JJ  ) 

I  =  L ( 1 »  J J ) 

J=L ( 2 , J J ) 

K=L(3, JJ) 

GOTO( 50,60,70)  ,N 
50  A ( I, J,K) =V( JJ ) 

GOTO  80 

60  D (  I  »  J , K ) =V ( JJ ) 
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C  SUBROUTINE  SIN 

GOTO  80 

70  CON (  I  )  = V ( J J ) 

80  CONTINUE 
RETURN 
END 
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C  SUBROUTINE  OUTPUT 
C  SUBROUTINE  OUTPUT 


PURPOSE 

TO  SUMMARIZE  THE  RESULTS  OF  THE  SENSITIVITY 
ANALYSIS  IN  TABLE  FORM 


REMARKS 

THE  SUMMARY  IS  WRITTEN  ON  LOGICAL  UNIT  1 


SUBROUTINE  OUT  PUT ( DVAL , OVAL  r NL ,  NPERT ) 


1  FORMAT ( 1 5A4 ) 

2  FORMAT!  '  1* /////, 13X, 15A4) 

3  FORMAT! /16X, 'THE  OPTIMAL  SOLUTION  TO  THE  • 

2* ‘DETERMINISTIC  PROBLEM  IS  USED  * / 16X ,  • AS  THE  REFERENCE 

£  •  f 

3'STRATEGY* • //20X, 'DVAL  =  REFERENCE  OBJECTIVE  ', 

4 ' FUNCTION  VALUE * /25X , *  =  •  , F 12 • 6 // 20X , ' 0 VA L  =  OBJECTIVE 

❖  •  , 

5 ' FUNCT I  ON  VALUE  FOR  THE  PERTURBEB • /27X ,' PROBLEM  », 

6 ' UNDER  THE  OPTIMAL  STRATEGY  FOR • /27X THAT  PROBLEM* , 
7//20X, 'NPERT  =  PERTURBATION  NUMBER*) 

4  FORMAT  ( ///22X,  ‘NPERT ' ,7X,  'OVAL* ,9X, 'OVAL-DVAL* ,5X, 

*  CHANGE*/) 

5  FORMAT! • 1* ,// ) 

6  FORMAT! 19X , 16 ,2X,3F13 .6 ) 

7  FORMAT! ' 1FINI • ) 


REAL  DVAL, OVAL, TITLE! 15) ,VAL(2) 
INTEGER  NL, NPERT 

C  WRITE  SUMMARY  TITLE  ON  FIRST  ENTRY 

IF(NL.NE.O)  GOTO  100 
READ! 5, 1 )  TITLE 
WRITE! 1,2)  TITLE 
WRITE! 1,3)  DVAL 
WRITE! 1,4) 

C  INITIALIZE  LINE  COUNT 


NL=26 
GOTO  150 


C  WRITE  PERTURBATION  RESULTS  IF  NOT  LAST  ENTRY 
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C  SUBROUTINE  OUTPUT  . 

100  I F(NPERT.EQ.O)  GOTO  170 

C  IF  NECESSARY,  SPACE  TO  NEW  PAGE 

I F ( NL-59 )  120,120,110 
110  WR I T  E ( 1, 5) 

WRITE! 1,4) 

NL  =  1 1 

C  INTERPRET,  WRITE  RESULTS 

120  VA L ( 1 )  =  OVAL-DVAL 

VAL ( 2 )  =  VAL(1 )*100./DVAL 
WRITE! 1,6)  NPERT , OVAL , VAL 
NL=NL+ 1 
150  CONTINUE 

C  RESULT  PRINT  FINISHED 
RETURN 

C  LAST  ENTRY,  SPACE  TO  NEW  PAGE 

170  WRITE! 1,7) 

RETURN 

END 


.  (CONT 'D ) 
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JAV  \ . 00 [{ l) JAV  =  (S>JAV 
.  '  >Vflt  -<s  1  M,I  >  S  T  I  55  I 

f+JUsJK 

ui/»i  thoo  oex  - 

'<•>  IT  iO.  •  ^  ♦  V  1  i  T2AJ  ■  D 
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C 


MAINLINE  —  R • A 


C 


MAINLINE  —  R • A •  RANGE  ANALYSIS 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PURPOSE 


REMARKS 


SUBROUTINES  REQUIRED 


TO  IDENTIFY  THOSE  CRITICAL  SPLIT  FACTORS  WHICH 
SHOW  AN  APPRECIABLE  RANGE  OF  VARIATION  IN  THEIR 
OPTIMAL  VALUES  WHEN  CRITICAL  SYSTEM  PARAMETERS 
ARE  PERTURBED 


DETAILED  RESULTS  ARE  WRITTEN  ON  LOGICAL  UNIT  6 
A  SUMMARY  IS  WRITTEN  ON  LOGICAL  UNIT  1. 


INPUT  -  IMINP1,  MINP1,  MINP2,  MINP3 
INIT 

VAL  -  COEFF,  C0NT2,  CANON,  PHSIM,  LPSOL,  STPRNT 
SOP 

SIN,  (SOUT) 

B PS H  -  VAL  (DUMMY  NAME  FC T ) 8  BPSOUT 


C 

C  SPECIFICATION  OF  VARIABLES  REQUIRED  FOR  BPSH 
EXTERNAL  VAL 

REAL  B( 5) ,T (5 ) »DX(5),DXM(5), BND  (2,5) 

C  COMMON  SPECIFICATION,  VARIABLES  REQUIRED  FOR  VAL 
COMMON  /V/  IV (5,3  )  ,NF IN 

COMMON  /LP/  C(30,60),RH(30) ,CZ(25),VNAME(25,3) , 
UX{ 25) ,NC(30) ,M,NCOL,NBAS (60) ,NPH,NS 


1  FORMAT ( 3A4 ) 

2  FORMAT (•  1 ', ////12X, 'REFERENCE  PROBLEM  FROM  EXPECTED 

*  DATA ' ) 

3  FORMAT( ' 1»  ,////, 12X,  'PERTURBED  PROBLEM  -  PERTURBATION 

*  =  •  ,  I  3  ) 

4  F0RMAT(///,12X, 'AFTER' ,14, »  CYCLE S ' // I 2X , • TH E  OPTIMAL 

*  SOLUTION  TO' 

1,'  THE  PERTURBED  PROBLEM  IS') 

6  FORMAT( ///12X, • THE  OPTIMAL  SOLUTION  IS') 

11  FORMAT (3110) 

12  FORMAT ( 5G1 5.5) 

13  FORMAT( //12X, • TOO  MANY  ITERATIONS') 

14  FORMAT( 13X, 'SPLIT  FACTOR', 12,'  =  • , F8 . 5 ) 

16  FORMAT ( // ) 


C  INITIALIZE  COUNTERS 


I 
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C  MAINLINE  —  R . A •  ...(CONT'D) 

NPERT  =0 
NL  =0 


C  INPUT,  INITIALIZATION  OF  MODEL  DATA 

CALL  INPUT 
CALL  INIT 


C  INPUT  OF  VARIABLE  NAMES  FOR  LPSOL 


DO  5  J=l,ll 

READ (5,1 ) ( VNAME(J,K) ,K= 1,3 ) 

5  CONTINUE 

C  INPUT  OF  DATA  FOR  PATTERN  SEARCH  INITIALIZATION 


READ( 5, 11 ) 
DO  7  J  =  1  ,N 

7  READ( 5, 11  ) 
READ! 5,12) 
READ! 5, 12  ) 
READ( 5,12) 
DO  8  K=  1 , 2 

8  READ( 5,12) 
READ (5,12) 


N  ,  M  I  T 

(  I V  (  J  , K )  ,K  =  1 ,3 ) 
(B(J),J=1,N) 

(  DX  (  J  )  ,  J  =  1 ,  N  ) 

( DXM ( J ) ,J=1,N) 

( BND (K , J ) , J  =  1 , N ) 
EPS 


C  EVALUATE  REFERENCE  PROBLEM,  PRINT  RESULTS 

WR I T  E ( 6 , 2  ) 

WR  I T  E  (  6,  6  ) 

NFIN=1 

CALL  VAL ( RVAL ,B ,N ) 

WRITE! 6, 16) 

WR  IT  E ( 6, 14)  (J,B(J),J  =  1,N) 

C  WRITE  SUMMARY  TITLE 

CALL  SOP(T  , RVAL, OVAL ,NL , NPERT, N) 

C  BEGIN  PROBLEM  PERTURBATION,  EVALUATION 

15  NPERT  =  NPERT  + 1 
WR  IT  E ( 6 , 3 )  NPERT 

C  READ  PERTURBATION  SPECIFICATION,  MODIFY  MODEL  DATA 
C  ACCORDINGLY 


CALL  SIN(LIOOO) 


C  SET  UP  AND  SOLVE  PERTURBED  PROBLEM 


FIND  OPTIMAL  SPLIT 
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C  MAINLINE  —  R.A.  ...(CONT'D) 

C  FACTOR  VALUES 
NF  I  N  =  0 

CALL  BPSH{ VA  L ,  B  ,  DX ,DXM ,T , BND , E PS , N , M I T ,  I  ER ) 
IF(IER)  20,25,25 
20  WR I T  E ( 6 , 1 3 ) 

GOTO  30 

C  PRINT  DETAILED  RESULTS 

25  WR ITE ( 6, 4)  IER 
30  NF I N=2 

CALL  VAL ( OVAL  ,T ,N  ) 

C  ENTER  RESULTS  IN  SUMMARY  TABLE 

CALL  SOP(T ,RVAL,OVAL ,NL ,NPERT,N) 

C  RESTORE  MODEL  DATA  TO  REFERENCE  STATE 
CALL  SOUT 

C  EVALUATE  NEXT  PERTURBATION 
GOTO  15 

C  ALL  PERTURBATIONS  ANALYSED,  FINISH  SUMMARY  PRINT 
C  (ALTERNATE  RETURN  FROM  SIN) 

1000  NPE RT  =  0 

CALL  SOP(T,RVAL,OVAL,NL ,NPERT,N) 

STOP 

END 
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C  SUBROUTINE  SOP 

C  SUBROUTINE  SOP 

PURPOSE 

TO  SUMMARIZE  THE  RESULTS  OF  THE  RANGE  ANALYSIS  IN 
TABLE  FORM 

REMARKS 

THE  SUMMARY  IS  WRITTEN  ON  LOGICAL  UNIT  1 

SUBROUTINE  SOP  IT , OVAL ,OV AL ,NL ,NPERT,N ) 


1  FORMAT ( 1 5A4 ) 

2  FORMAT! • 1' /////, 13X, 15A4) 

3  FORMAT! /16X, 'THE  OPTIMAL  SOLUTION  TO  THE  ' 

2, 'DETERMINISTIC  PROBLEM  IS  USED • / 16X , ' AS  THE  REFERENCE 

■v  f  f 

3 'STRATEGY. • //20X,  'DVAL  =  REFERENCE  OBJECTIVE  ', 

4 ' FUNCT I  ON  VALUE '/25X, • =  ' , F 1 2 . 6 // 20X , ' 0 VAL  =  OBJECTIVE 

*  •  , 

5» FUNCTION  VALUE  FOR  THE  PERTURBEB ' /27X ,' PROBLEM  ', 

6 ' UNDER  THE  OPTIMAL  STRATEGY  FOR ' /27X , ' THA T  PROBLEM', 
7//20X, 'NPERT  =  PERTURBATION  NUMBER') 

4  FORMAT! ///22X, 'NPERT • ,3X, '%  CHANGE ' , 2X , 2 (  ' S. F. • , I  1 
*,3X  )  ) 

5  FORMAT! • 1* ,// ) 

6  FORMAT! 19XtI6, F12.2 ,5F8.3 ) 

7  FORMAT! • 1FINI • ) 

8  FORMAT! /17X, • %  CHANGE  =  %  CHANGE  IN  OBJECTIVE  FUNCTION 
*  VALUE ' ) 

9  FORMAT! ///22X, • SPL IT  F ACTOR • , 3X , • ME AN ' , 4X , • VAR  I ANC F ' 
*/( 22X,  18, 

1F13.3,E12.2 ) ) 


REAL  D VAL, OVAL, TITLE! 15 ) , T ( 1 ) , SM ( 10 ) , S V ( 10 ) 
INTEGER  NL, NPERT 

C  WRITE  SUMMARY  TITLE  BLOCK  ON  FIRST  ENTRY,  INITIALIZE 
C  WORK  SPACE 

IF(NL.NE.O)  GOTO  100 
READ! 5 , 1 )  TITLE 
WRITE! 1,2)  TITLE 
WRITE! 1,3)  DVAL 
WRITE!  1,8) 

WRITE! 1,4) ( I ,1=1 ,N) 

DO  90  J=1 , N 
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C  SUBROUTINE  SOP  ...(CONT'D) 

SM( J )=0.0 
90  SV(J)=0.0 
NL  =  1 

GOTO  150 

C  INTERPRET  AND  WRITE  INTERMEDIATE  RESULTS  IF  NOT  LAST 
C  ENTRY 

100  IF(NPERT.EO.O)  GOTO  170 
120  VAL=(0VAL-DVAL)*100./DVAL 

WRITE! 1,6)  NPERT,VAL, (T( J) , J=1,N) 

C  PERFORM  SUMMATIONS  FOR  STATISTICS 

DO  130  J=1  ,N 
SM( J ) =SM( J )+T ( J ) 

130  SV( J)=SV( J)+T(J)*T(J ) 

NL=NPERT 
150  CONTINUE 
RETURN 

C  LAST  ENTRY,  CALCULATE  AND  WRITE  STATISTICS  ON  SPLIT 
C  FACTOR  VALUE,  SPACE  TO  A  NEW  PAGE 

170  DO  180  J=1 , N 
SM( J)=SM( J)/NL 

180  SV(J)=(SV( J ) -NL*SM ( J )*SM( J ) ) /!NL-1 ) 

WRITE! 1,9) (J»SM(J),SV(J),J=1,N) 

WRITE! 1,5) 

RETURN 

END 
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C  SUBROUTINE  BPSOUT 
C  SUBROUTINE  BPSOUT 

DUMMY  OUTPUT  ROUTINE  REQUIRED  BY  BPSH 


SUBROUTINE  BPSOUT (F, B»N, IT, KK,K,IER) 
REAL  B(  1 ) 

RETURN 

END 
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2 .  TABLES 
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TABLE  G-l 

SENSITIVITY  ANALYSIS  DATA 
PARAMETER  PERTURBATIONS 


BUTADI  ENE 

AREA  - 

PARAMETER 

SENS  IT IVITY 

1 

0.97 

1 

2 

3 

2 

0.03 

1 

1 

2 

0 

• 

1 

0.87 

1 

2 

3 

2 

0.13 

1 

1 

2 

0 

• 

1 

0.20 

2 

1 

2 

1 

0.80 

2 

1 

8 

00 

• 

1 

0.10 

2 

1 

2 

1 

0.90 

2 

1 

8 

0 

• 

1 

0.95 

2 

2 

3 

2 

0.05 

2 

1 

2 

0 

• 

1 

0.85 

2 

2 

3 

2 

0.15 

2 

1 

2 

0 

• 

1 

0.20 

3 

2 

3 

2 

0.80 

3 

1 

2 

0 

• 

1 

0.10 

3 

2 

3 

2 

0.90 

3 

1 

2 

0 

• 

1 

0.95 

3 

3 

4 

0 

• 

1 

0.85 

3 

3 

4 

0 

• 

1 

0.95 

4 

3 

4 

0 

• 

1 

0.85 

4 

3 

4 

0 

• 

1 

0.975 

1 

4 

11 

1 

0.975 

2 

4 

11 

1 

0.975 

3 

4 

11 

1 

0.975 

4 

4 

11 

2 

0.025 

1 

2 

4 

2 

0.025 

2 

2 

4 

2 

0.025 

3 

2 

4 

2 

0.025 

4 

2 

4 

0 

• 

1 

0.925 

1 

4 

11 

1 

0.925 

2 

4 

11 

1 

0.925 

3 

4 

11 
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. 
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. 

nO.u 
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I 

I 

s 

X 

X 

X 
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1 

2 

2 

2 

2 

0 

1 

2 

0 

1 

2 

0 

1 

1 

0 

1 

1 

0 

1 

1 

0 

1 

1 

0 

1 

1 

0 

1 

1 

0 

1 

2 

0 

1 

2 

0 

1 

2 

0 

1 

2 

0 

1 

1 

0 

1 

1 

0 

1 

2 
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TABLE  G  -  1 


.  .  .CONT 'D 


0.925 

0.075 

0.075 

0.075 

0.075 


4 

1 

2 

3 

4 


4 

2 

2 

2 

2 


11 

4 

4 

4 

4 


0.075 

0.925 


4 

4 


5 

3 


12 

5 


0.025 

0.975 


4 

4 


5 

3 


12 

5 


0.25 

0.75 

• 

0.15 

0.85 


1 

1 

1 

1 


6 

6 

6 

6 


7 

14 

7 

14 


0.25 

0.75 


2 

2 


6 

6 


7 

14 


0.15 

0.85 


2 

2 


6 

6 


7 

14 


0.975 

0.025 


4 

4 


6 

6 


7 

14 


0.925 

0.075 


4 

4 


6 

6 


7 

14 


0.075 

0.925 


4 

4 


7 

4 


15 

7 


0.025 

0.975 

• 

0.85 

0.05 

• 

0.75 

0.15 


4 

4 

2 

2 

2 

2 


7 

4 

8 

5 

8 

5 


15 

7 

9 

8 

9 

8 


0.15 

0.85 


2 

2 


9 

9 


1 

10 
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0.95 

0.15 
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2 

2 
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9 

10 
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TABLE  G  -  2 

SENSITIVITY  ANALYSIS  DATA 
OPTIMAL  SPLIT  FACTOR  PERTURBATIONS 
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TABLE  G  -  2  ...CONT»D 
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TABLE  G  -  3 
RANGE  ANALYSIS  DATA 


DATA  FOR  B PS H  -  PATTERN  SEARCH 
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TABLE  G  -  3 
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3.  DOCUMENTATION 
3.1  SIN 

This  subroutine  reads  data  specifying  a  problem 
perturbation  and  modifies  the  model  data  (stored  in 
unlabelied  COMMON)  accordingly.  The  original  model 
data  may  be  restored  by  entering  the  subroutine  at 
its  second  entry  point,  SOUT  (i.e.  CALL  SOUT) 

On  each  perturbation  data  card,  the  following 
variables  may  be  specified. 

N  -  type  of  perturbation 

=  0  end  of  data  sub  set  2nd  consecutive 
0  indicates  end  of  perturbations 
=  1  change  A(I,J,k) 

=  2  change  D(I,J,k) 

-  3  change  CON  (I) 

VAL  ~  new  value  for  perturbed  parameter 

1,J,K  -  appropriate  indices 

When  the  end  of  the  perturbation  data  set  is  indicated, 
an  appropriate  return  is  made  to  the  calling  program 
statement  number  specified  in  the  parameter  list. 

3.2  OUTPUT,  SOP 

These  subroutines  summarize  the  results  of  the 
sensitivity  analysis  and  range  analysis.  A  title  card 


-  - r  - 


' 
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listing  the  heading  to  be  printed  on  the  summary  is 
required  from  input  data.  The  parameter  list  variables 
are : 

DVAL  -  reference  objective  function  value 

OVAL  -  optimal  objective  function  value, 
perturbed  problem 

NL  -  flag 

=  0  for  first  perturbation 

NPERT  -  No.  of  perturbation 

=  0  for  end  of  perturbations 

3.3  Mainline  —  S.A. 

This  program  performs  the  sensitivity  analyses 
described  in  chapter  III,  section  D.  The  input  data 
required  are:  model  data  similar  to  that  listed  in 
table  C-l,  defined  in  table  C-3,  but  with  optimal  split 
factors;  variable  names  for  LPSOL,  listed  in  table  Dr-1; 
and  sensitivity  analysis  data  consisting  of  a  title 
card  and  perturbation  data.  Sensitivity  analysis  data 
are  listed  in  tables  G-l  and  G-2. 

The  sensitivity  analysis  summaries  printed  by 
OUTPUT  appear  as  tables  11  and  13. 

Subroutines  required  are  documented  as  follows: 
INPUT  -  Appendix  C 
INIT ,  COEFF,  C0NT2  -  Appendix  E 
CANON,  TPHSIM ,  LPSOL  -  Appendix  D 


X 

-  * 
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SIN,  OUTPUT,  -  Appendix  G 
3.4  Mainline  —  R»  A . 

This  program  performs  the  range  analysis 
described  in  chapter  III,  section  D.  The  input  data 
required  are:  model  data  similar  to  that  listed  in 
table  C— 1,  defined  in  table  C-3,  but  with  optimal 
split  factors;  variable  names  for  LPSOL,  listed  in 
table  D-l;  and  range  analysis  data  consisting  of 
pattern  search  initialization  data,  a  title  card, 
and  perturbation  data.  Range  analysis  data  are 
listed  in  table  G-3. 

The  range  analysis  summary  printed  by  SOP 
appears  as  table  15. 

Subroutines  required  are  documented  as 

follows : 


INPUT 


Appendix  C 


INIT 


Appendix  E 


VAL , BPSH  -  Appendix  F 


SIN, SOP 


Appendix  G 


BPSOUT  for  BPSH  -  Appendix  G 
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MAINLINE 


E.C 
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MAINLINE  —  E.C.  EXPECTED  COST  OF  UNCERTAINTY 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 
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REMARKS 


PURPOSE 


SUBROUTINES  REQUIRED 

INPUT  -  IMINPI,  MINP1,  MINP2,  MINP3 
INI T  *  INIT2 

ECOST  -  EVAL,  AVAL,  GAUSS,  REFEED,  COEFF,  CONT2 , 


TO  ESTIMATE  THE  EXPECTED  COST  OF  UNCERTAINTY 
ABOUT  SENSITIVE  MODEL  PARAMETERS 


DETAILED  RESULTS  APPEAR  ON  LOGICAL  UNIT  6 
SUMMARIES  ARE  WRITTEN  ON  LOGICAL  UNIT  8. 


CANON,  TPHSIM,  LPSOL 


COMMON  /EC/  RM( 10 ) ,S ( 10 ) , AT ( 10 ) ,SUM( 5) ,STAT(6), ALPHA 
1 , DELTA, CONF , NTS ( 10,8 ) , NS F , MAX  SAM ,M I  NS AM, NS AM, IX,NREJ 
COMMON  /LP/  C0N!30,60)»RHS(30),CZ(25),VNAME(25,3), 
1X(25) ,NC0DE(30 ) , M , N , NB AS ( 60 ) , NPH ,NS 


1  FORMAT ( 3A4 ) 

2  FORMAT (8110) 

3  FORMAT ( 8F 10 .4 ) 

4  FORMAT ( 5G1 5.7) 

5  FORMAT!  '  l'/////12X, 'EVALUATION  OF  EXPECTED  COST  OF  ', 
1 'UNCERTA INTY» /12X, 'BY  MONTE  CARLO  SIMULATION') 

6  FORMAT! //12X, 'THE  SENSITIVE  FACTORS  ARE  -'/) 

7  FORMAT! 12X, » A ( ' , 12, • , • , 12,  • ,  • , I  2,  •  )  •  ,7X, • MEAN  =', 
•F10. 4, 7X, 'VARIANCE  =',F10.4) 

8  FORMAT! 12X, »D( • , 12 ,  '  ,  •  ,  12,  '  ,  •  ,  I  2,  •  )  • ,7X, • MEAN  =', 

' F10. 4, 7X, • VARIANCE  =',F10.4) 

9  F0RMAT(12X,'C0N(  '  ,12,  '  )  '»11X» 'MEAN  =',F10.4,7X, 
l'VARIANCE  = ' , F 1 0 .4 ) 

10  FORMAT! 17X, 'WITH  DEPENDENT  A!', 12, ',',12, ',',12,')') 

11  FORMAT! 17X ,' WITH  DEPENDENT  D(', 12,  ',',12,  ',',12,')') 

12  FORMAT! 17X, 'WITH  DEPENDENT  C ON (  •  ,  I  2  ,  •  )  • ) 

13  FORMAT! ///12X, • MAXIMUM  NO.  OF  SAMPLES  THIS  RUN  =',15/ 
112X, 'ALPHA  =' ,F10.4, /12X, 'DELTA  = ' , G 1 3. 4/ 1 2X , 

2 ' CONF IDENCE  LEVEL  =»,F10.4) 

14  FORMAT! //12X, ' THIS  RUN  IS  A  CONTINUAT ION* / 12X, 

1  *  NO •  OF  SAMPLES  ALREADY  TAKEN  =  •  , I  10 ) 

C  INPUT  OF  MODEL  DATA,  INITIALIZATION  FOR  LP 

CALL  INPUT 
CALL  INIT 
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MAINLINE 


E  .C. 


•  •  • 


( CONT*  D) 


CALL  INIT2 
DO  20  J  =  1  ,11 

20  READ( 5,1)  ( VNAME ( J ,K ) ,K=1,3 ) 

C  INPUT  OF  DATA  INDICATING  SENSITIVE  PARAMETERS 

WR  I T  E  (  8,  5) 

WRITE! 8,6) 

READ! 5, 2 )  NSF 
DO  40  J  =  1  , NS F 
READ! 5,2 ) ( NTS ( J,K ) ,K=1,8) 

READ ( 5 , 3 )  RM ( J ) , S ( J ) , AT ( J ) 

K=  NTS ( J ,  1  ) 

GOTO  (31,32,33,31  ,32)  ,K 
GOTO  39 

31  WR I T  E ( 8 , 7 )  (NTS (J»K),K=2»4) ,RM(J) ,S( J) 

GOTO  34 

32  WRITE! 8, 8) (NTS! J,K) ,K =2 , 4 ) , RM ( J ) , S ( J ) 

GOTO  34 

33  WR I T E ( 8 , 9 )  NTS ( J ,2 ) ,RM ( J ) , S ( J ) 

34  K=NTS ( J , 5 ) 

GOTO  (36,37,38,36,37) ,K 
GOTO  39 

36  WR IT  E ( 8 , 10 )  ( NTS ( J ,K ) ,K=6 ,8 ) 

GOTO  39 

37  WRITE(8,11) (NTS (J,K),K=6,8) 

GOTO  39 

38  WR IT  E ( 8 , 1 2 )  NTS ( J,6) 

39  S( J)=S( J)**0.5 

40  CONTINUE 

C  INPUT  DATA  FOR  SIMULATION 

READ! 5,2)  MA XSA M , M I  NS A M 

READ ( 5,4)  ALPHA, DELTA ,CONF 

WR  ITE! 8, 13 )  MAXSAM, ALPHA, DELTA, CON F 

READ! 5,2)  NSAM,IX 

IF(NSAM.EO.O)  GOTO  50 

READ! 5,4)  SUM 

READ! 5,4)  STAT 

WRITE!  8,  14)  IMS AM 

C  ESTIMATE  EXPECTED  COST  OF  UNCERTAINTY 

50  CALL  ECOST 
STOP 
END 
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C  SUBROUTINE  ECOST 

C  SUBROUTINE  ECOST 

PURPOSE 

TO  ESTIMATE  THE  EXPECTED  COST  OF  UNCERTAINTY  BY 
MONTE  CARLO  SIMULATION. 

REMARKS 

A  SUMMARY  OF  RESULTS  IS  WRITTEN  ON  LOGICAL  UNIT  8 

SUBROUTINES  REQUIRED 
EVAL 

jjc  jjx  jjc  5}c  >Jc  >)C  'Jc  3jC  2{c  jjs  ?jc  i|£  j|£  j{c  j{c  ijs  jjc  jjc  2 Jc  jji  j|c  jjs  jjc  ^|c  ijx  J jc  ^  jjc  jJ?  ijc 

SUBROUTINE  ECOST 


COMMON  /EC/  RM (10  )  ,S ( 10 ) , AT ( 10 ) , SUM! 5 ) ,STAT( 6) , ALPHA 
1,  DELTA, CON F, NTS ( 10,8 ) , NS F ,M AXS AM , M IN SAM , NSAM, I  X, NR E J 


1  FORMAT(  •  1* ///16X,  'NO.  OF • , 5X , • REGRE T • , 1 IX ,  ' C OST • , 1 1 X 
*,  'COST' , T 93 , 

1 'EXP.  COST'  ,4X, 'VARIANCE* ,3X, 'PRECISION' / 1 5X , 'SAMPLE' 

* , 20X , 

2' CERTAINTY*  ,3X,  'REF.  STR AT EGY • , T92 , 'UNCERTAINTY'/) 

2  FORMAT! 1H+,T90,3E12 .2 ) 

3  FORMAT (2110) 

4  FORMAT ( 5G1 5 .7 ) 

106  FORMAT( • 1* /////12X, 'RESULTS  OF  MONTE  CARLO  SIMULATION' 
❖  /  ) 

107  FORMAT ( 1 2X , «  NO .  OF  SAMPLES  TAKEN  =  •  ,  I  5/1 2X , » NO.  OF 

*  SAMPLES  ' 

2,  • REJECTED  =  •  , 15  ) 

108  FORMAT( /12X, 'EXPECTED  COST  OF  UNCERTAINTY  =',G11.3,' 

*  VAR.  =», 

2G10.2//12X, • EXPECTED  COST ,  REF.  STRATEGY  =',G11.3,' 

*  VAR.  =• ,G1 0 .2/ 

212X, • EXPECTED  COST,  CERTAINTY  =»,G11.3,'  VAR.  =• 
*,G10.2 ) 

109  FORMAT! /12X, 'PRECISION,  COST  OF  UNCERTAINTY  ESTIMATE 

*  =  '  ,  G1  0.  2/ 

112X, 'CONFIDENCE  LEVEL  REQUESTED  =',F6.3) 

110  FORMAT <//12X, 'SIMULATION  COMPLETED' /' 1 ' ) 

111  FORMAT! /12X, • SAMPLES  REQUIRED  TO  COMPLETE  SIMULATION 

*  =  '  ,  110/ 

112X,  'TOTAL  SAMPLES  REQUIRED  =',UO/'l') 


C  WRITE  SUMMARY  TITLE 
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C  SUBROUTINE  ECOST  ...(CONT'D) 

WRITE! 8, 1 ) 

C  INITIALIZE  COUNTERS,  WORKSPACE 

NRE J=0 
1=0 

IF(NSAM)  8,8,30 
8  DO  10  J  =  1 , 5 
10  SUM ( J ) =0. 0 

C  BEGIN  SAMPLING 

20  1=1+1 

NS AM=NSAM+ 1 

C  GENERATE  SAMPLE  -  REFERENCE  VALUE,  OPTIMAL  VALUE 

CALL  EVAL( RVAL ,OVAL , £20 ) 

C  PERFORM  SUMMATIONS 

SUM(  1  )=SUM(  D+RVAL 
SUM! 2 )=SUM( 2 )+RVAL*RVAL 
SUMO)  =SUM(3)+ OVAL 
SUM(4)=SUM(4)+0VAL*0VAL 
SUM! 5) =SUM( 5)+ (RVAL-OVAL )**2 

C  IF  INSUFFICIENT  SAMPLES  TAKEN  FOR  CALCULATION  OF 
C  STATISTICS,  SAMPLE  AGAIN 

IF(NSAM.LT.MINSAM)  GOTO  20 

C  CALCULATE  SAMPLE  MEANS  -  REFERENCE  VALUE,  OPTIMAL  VALUE, 
C  EXPECTED  COST  -  AND  SAMPLE  VARI ANCE , EXPECT  ED  COST 

STAT ( 3 ) =SUM ( 1 ) / NSAM 
STAT! 5) =SUM{3 )/NSAM 
STAT! 1 )=STAT(3 )-STAT (5) 

STAT(2)=(SUM(5)-NSAM*STAT(1 )*STAT( 1) )/(NSAM-l ) 

C  ESTIMATE  ACCURACY,  EXPECTED  COST  ESTIMATE 

30  TN= ALPHA*! (STAT (2)/NSAM)£*0*5) 

WR  I T  E  (  8 , 2  )  STATU  )  ,  ST  AT  (  2  )  ,TN 

C  IF  ACCURACY  IS  SUFFICIENT,  SIMULATION  IS  COMPLETED 

IF(DELTA.GE.TN)  GOTO  35 

C  IF  NOT,  AND  MORE  SAMPLES  MAY  BE  TAKEN,  SAMPLE  AGAIN 
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C  SUBROUTINE  ECOST  ...(CONT'D) 

I F  C I.LT.MAXSAM)  GOTO  20 
C  COMPLETE  SIMULATION 

C  CALCULATE  SAMPLE  VARIANCE  -  OPTIMAL  VALUE,  REFERENCE 
C  VALUE 

3  5  S  TAT ( 4 ) = { SUM (2 )-NSAM*STAT ( 3 ) * S TAT ( 3 )  )/( NSAM-1 ) 
STAT(6)=(SUM(4 )-NSAM*STAT (5)*STAT(5 ) )/( NSAM-1 ) 

C  PUNCH  INFORMATION  FOR  LATER  CONTINUATION 

WR I T  E ( 7, 3 )  NSAM , I  X 
WR IT  E ( 7 , 4 )  SUM 
WR  ITE ( 7, 4)  STAT 

C  WRITE  SIMULATION  SUMMARY 

WRITE (8, 106) 

WRITE(8,107)  NS AM , NRE J 
WR  I T E ( 8 , 1 08 )  STAT 
WR I T  E ( 8 , 1 09 )  TN,  CONF 

C  SIMULATION  COMPLETE 

IF(OELTA.LT.TN)  GOTO  40 

C  YES,  FINISHED 

WR IT  E ( 8 , 1 10 ) 

RETURN 

C  NO,  REQUIRED  ACCURACY  NOT  OBTAINED 
C  ESTIMATE,  WRITE  ADDITIONAL  SAMPLES  REQUIRED 

40  NSREQ=STAT( 2 )* { ALPHA /DELT A ) **2 
NSREM=NS  REQ-NSAM 
WRITE(8,111)  NS  REM , NS  REQ 
RETURN 
END 
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C  SUBROUTINE  EVAL 

C  SUBROUTINE  EVAL 

C  PURPOSE 

C  TO  GENERATE  RANDOM  VALUES  OF  THE  REFERENCE 

C  STRATEGY,  THE  OPTIMAL  STRATEGY,  AND  THE  REGRET 

C  FOR  USE  IN  THE  MONTE  CARLO  SIMULATION  ESTIMATE 

C  OF  THE  EXPECTED  COST  OF  UNCERTAINTY 

C 

C  REMARKS 

C  SIMULATION  RESULTS  ARE  WRITTEN  IN  DETAIL  ON 

C  LOGICAL  UNIT  6  AND  SUMMARIZED  ON  LOGICAL  UNIT  8 

C 

C  SUBROUTINES  REQUIRED 

C  AVAL,  REFEED,  COEFF,  CONT2,  CANON,  TPHSIM,  LPSOL 

C 

J*  sV  V*  ^  ^  sU  nU  >•/  \l/  V*"  V*  Jo  ^  Jo  Jo  Jo  J«*  Jo  Jo  Jo  Jo  Jo  Jo  Jo  «lo  Jo  Jo  Jo  v'o  Jo  Jo  Jo  Jo  nU  Jo 

Oj»  Op  oi|»  Op  O,*  Ojv  0(»  0|*  0|S  Oj%  Oj»  Op  0|«  op  0|%  Oj*  OjS  Op  Oj\  Op  Oj»  OjS  0,\  /,»  Op  0|S  0|»  0|S  Ojs  op  Op  Op  Op  0|\  Op  Op  0|*  Op  Op  op  Op  op  Oj»  Op  op  Op  0|\  Oj>  op  op  Op  op  op  Op  Op 

SUBROUTINE  EVAL  ( RVAL ,OVAL ,* ) 


REAL  BI Y( 4,15,1 1 ) ,DBIY (4,6, 11 ) ,RFEED( 11 ) 

COMMON  /LP/  CON(30,60),RHS(30),CZ(25) ,VNAME( 25,3), 

IX (25) ,NC0DE(30) ,M,N,NBAS (60  )  ,NPH,NS 
COMMON  /EC/  RM(10),S(10),AT(10),SUM(5),STAT(6), ALPHA 
1, DELTA, CON F, NTS ( 10,8 ) , MS F ,M AXS AM , M IN SAM , NSAM, I  X , NR  EJ 


1  FORMAT ( ' 1  *  »/////12X,  'SAMPLE  NO.', 15) 

2  FORMAT! ////12X, 'VALUE  OF  THE  REFERENCE  STRATEGY  =• 
*,612.4) 

3  FORMAT! //12X, 'OPTIMAL  STRATEGY  FOR  THIS  STATE  OF 
*  NATURE  -' ) 

4  FORMAT! //12X, 'THE  REGRET  =',G12.4) 

5  F0RMAT(//12X, 'RANDOM  VARIABLE  VALUE  OUT  OF  BOUNDS  ', 
1 • -  SAMPLE  REJECTED  •  ) 

6  FORMAT! 12X, 18 ,2X,3 (E13.4,2X,  )  ) 

C  WRITE  TITLE  -  SIMULATION  RESULT  PRINT 
WR I TE ( 6, 1 )  NSAM 

CL  GENERATE  RANDOM  SAMPLE  -  SENSITIVE  PARAMETERS 
CALL  A VA L ( £  100 ) 

C  GENERATE  TRANSFORMATION  EQUATION  COEFFICIENTS 
CALL  COE  FF ( B I Y ,DB I Y ) 

C  EVALUATE  REFERENCE  STRATEGY,  PRINT  RESULTS 
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C  SUBROUTINE  EVAL  ...(CONT'D) 


CALL 

RE  FEED! B IY ,DB I 

Y, 

R 

FE 

ED) 

CALL 

C  0NT2 ( 1 , B I Y , DB 

IY 

) 

RVAL 

=  0 

DO  1 

0  J=1 ,N 

10  RVAL 

=RVAL+RFEED ( J )* 

CZ 

( 

J  ) 

WRIT 

E ( 6, 2 )  RVAL 

WRIT 

E  (  6 , 3  ) 

EVALUAT 

E  OPTIMAL  STRAT 

EGY 

» 

PRINT 

CALL 

CANON 

CALL 

TPHSIM 

CALL 

L  PSOL ( 1  ) 

NO  =  NC  ODE (  M+2  ) 

OVAL  =  X( NO+1  ) 

C  EVALUATE  REGRET,  PRINT 

REGRET=RVAL-OVAL 
WR ITE ( 6, 4)  REGRET 

C  WRITE  SUMMARY  FOR  THIS  SIMULATION 

WR IT  E ( 8 , 6 )  NSAM, REGRET, OVAL, RVAL 
C  FINISHED 
RETURN 

C  THE  SAMPLE  WAS  REJECTED,  CHANGE  COUNTERS  AND  RETURN 
C  APPROPRIATELY 

100  NSAM=NS AM-1 
NR  E J  =  NRE J+ 1 
WR IT  E ( 6 , 5  ) 

RETURN  1 
END 
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C 


SUBROUTINE  AVAL 


C 


SUBROUTINE  AVAL 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


REMARKS 


SUBROUTINES  REQUIRED 
GAUSS 


PURPOSE 


TO  GENERATE  RANDOM  SETS  OF  VALUES  FOR  THE 
SENSITIVE  PARAMETERS  AND  MODIFY  MODEL  DATA 
ACCORDINGLY 


THE  PARAMETERS  ARE  WRITTEN  ON  LOGICAL  UNIT  6 


SUBROUTINE  AVAL(*) 


COMMON  /EC/  RM( 10 ) ,S ( 10) , AT ( 10 ) ,SUM( 5) ,STAT(6) , ALPHA 
1 , DELTA, CONF , NTS { 10,8 ) ,NS F , MAX SAM ,M I  NS AM, NS AM , IX,NREJ 
COMMON  A(4, 15, 15), Y(4, 15, 11), 0(4,6,15) ,CPROD( 10,4,6) , 
1C  I  NS ( 10,4,15)  »CRED VA (10,11 ) ,FDC0ST(4, 11 ) , 

10PC0ST (4,15) ,VALPR0(4,6) ,C0N(4) ,RHS( 10) , RNGE ( 10) , 
1GBND(4,15,2) ,PBND (4,6,2 ) , F  BND ( 1 1 , 2 ) , S EL , NCOD E ( 10 )  , 
1NC0MP,NPR0,NG,NF,NC0N,NB ,NR 


1  F0RMAT(//12X, 'SENSITIVE  FACTORS'/) 

2  FORMAT( 12X, ' A ( •  ,  12  ,  '  ,  •  ,  I  2, ' , • , 12,  •  )  =',F10.4) 

3  FORMAT( 12X, *D ( ' , 12 , ' , » , 12,  ' ,  '  ,  I  2,  '  )  =',F10.4) 

4  FORMAT ( 12 X, 'CON (  •  ,  12,  '  )  •  ,5X, '=  •  ,F10.4) 

C  WRITE  TITLE 

WR IT  E ( 6 , 1 ) 

C  GENERATE  NS F  SETS  OF  VALUES 

DO  50  J  =  1  ,NSF 
L  =  0 

I  X I  =  I  X 
RMM=RM ( J ) 

S  D=S ( J ) 

C  GENERATE  A  NORMAL  RANDOM  VARIABLE  FROM  THE  REQUIRED 
C  DISTRIBUTION 

CALL  GAUSS(  IXI  ,SD,RMM,AD) 

I X= I X  I 
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C  SUBROUTINE  AVAL  ...(CONT'D) 

C  IF  THE  GENERATED  VARIABLE  EXCEEDS  ITS  BOUNDS,  THE  SAMPLE 
C  IS  REJECTED 

I  F  (  (AD.GT.ATU  )  ).OR.  (  AD.LT.O.O)  )  RETURN  1 
C  MODIFY  BASE  PARAMETER  ACCORDINGLY 
K  =  NTS ( J  *  1 ) 

GOTO  ( 10,20,30, 12,22  )  ,K 
10  A ( NTS ( J, L+2 ) ,NTS ( J ,L+3 ) ,NTS( J, L+4) )=AD 
WRITE (6, 2  )  (NTS ( J,L+K) ,  K  =  2 ,4 ) ,AD 
GOTO  40 

12  DO  15  M=1 ,4 

A( M »  NT  S ( J  »  L  +  3 ) ,NTS ( J , L+4 ) )=AD 
15  WR IT  E ( 6 , 2 )  M,NTS ( J  ,L+3  )  ,NTS( J,L  +  4) , AD 
GOTO  40 

20  D(NTS( J,L+2) ,NTS (J ,L+3 ) ,NTS( J,L+4) )=AD 
WRITE( 6,3) ( NTS (J ,L+K ) ,K=2,4) ,AD 
GOTO  40 

22  DO  25  M=1 ,4 

D ( M, NTS ( J , L+3 ) , NTS ( J , L+4 ) )=AD 
25  WR ITE ( 6, 3 )  M , NTS ( J , L +3 ) , NT S ( J , L+4 ) , AD 
GOTO  40 

30  CON ( NTS ( J , L+2 ) )=AD 
WR I T  E ( 6 , 4 )  AD 
AD=AD+AT ( J ) 

C  MODIFY  COUPLED  PARAMETER  IF  ANY 

40  I F ( L • E Q*  4 )  GOTO  50 
A  D= AT ( J ) - AD 

41  L  =  4 
K=NTS ( J , 5 ) 

GOTO  ( 10,20,30,12,22  )  ,K 
50  CONTINUE 
RETURN 
END 
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C  SUBROUTINE  INIT2 

C  SUBROUTINE  INIT2 

PURPOSE 

TO  INITIALIZE  MODEL  DATA  FOR  EVALUATION  OF 
REFERENCE  STRATEGY  BY  ADDING  NECESSARY  CONSTRAINT 
INFORMATION 

SUBROUTINE  INIT2 


REAL  B  IY(4,15,11 ) ,DBIY (4,6, 1 1 ) ,RF ( 1 ) ,G(6) , NCC( 15) 
COMMON  A(4,15,15),Y(4,15,11),D(4,6,15) ,CPROD( 10,4,6) , 
1  Cl  NS ( 10,4, 15)  ,CRED VA (10,11 ) ,FDCOST( 4, 11 ) , 

10PC0ST( 4, 15) ,VALPRO (4,6 ) ,C0N(4) ,RHS( 10 ) , RNG  E ( 10 ) , 
1GBND(4,15»2) ,PBND (4,6,2 ) , F  BND ( 1 1 , 2 ) , S EL , NCOD E ( 1 0 ) , 
1NC0MP,NPR0 ,NG,NF,NCON,NB,NR 

C  ADD  CONSTRAINT  1 

CREDVA ( NC  0N+ 1,6 )=1.0 
RHS ( NCON+1 ) =FB  ND (6,1) 

C  ADD  CONSTRAINT  2 

CREDVA(NC0N+2,3 )  =1.0 
CREDVA ( NC  ON+2 ,4 )  =1.0 
CR  EDVA ( NCON+2 ,5 )  =1.0 
CREDVA ( NCON+2 ,7 )  =1.0 
CREDVA ( NCON+2 ,8 )  =1.0 
CREDVA ( NC  ON+2 , 1 0 ) =1 .0 
CREDVA! NCON+2, 11 )=1.0 
RETURN 
END 
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C  SUBROUTINE  REFEED 
C  SUBROUTINE  REFEED 
PURPOSE 

TO  EVALUATE  THE  REFERENCE  STRATEGY  GIVEN 
TRANSFORMATION  EQUATION  COEFFICIENTS 

SUBROUTINES  REQUIRED 

CONT2  »  CANON,  TPHSIM,  LPSOL 

#####################################  sis  #;£#############  sis  s;s# 

SUBROUTINE  RE  FEED ( B I Y ,DB I Y  ,RF ) 


COMMON  A(4, 15*15) »Y (4,15,11 ),D(4,6,15) ,CPROD( 10,4,6) , 
1C  I  NS (10,4,15) ,CRED VA (10,11 ) ,FDCOST( 4, 11 ) , 

10PC0ST (4,15) ,VALPRO (4,6 ) ,C0N(4  )  ,RHS( 10  )  ,RNGE( 10 )  , 
1GBND(4,15,2) ,PBND (4,6,2 ) ,FBND( 11,2) ,SEL,NCODE( 10), 
1NC0MP,NPR0,NG,NF,NC0N,NB ,NR 
COMMON/LP/  C (30,60 ) ,RH(30) ,CZ(25 ) ,VNAME( 25,3) , 

IX (25) ,NC( 30) ,M,N,NBAS (60 ) ,NPH,NS 
REAL  BIY(4,15,11 ),DBIY(4,6,11),RF(1) 

C  SET  UP  REDUCED  FORM  OF  THE  OPTIMIZATION  MODEL  FOR 
C  REFERENCE  STRATEGY  EVALUATION 

NC0N=NC0N+2 

CALL  C0NT2( 2,BIY,DBIY) 

DO  10  J=1 , N 
10  CZ(J)=0. 

CZ(9)=-10. 

CZ( 1  )=-5. 

CZ( 2 ) =-2 • 

C  SOLVE  THE  RESULTING  L.P.  PROBLEM  USING  THE  TWO  PHASE 
C  SIMPLEX  ALGORITHM 

CALL  CANON 
CALL  TPHSIM 
CALL  LPSOL(O) 

DO  20  J  =  1  ,NF 
20  RF( J  )  =  X( J) 

NC0N=NC0N-2 

RETURN 

END 
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TABLE  H-2 . 

Printout  of  Initial  Conditions 


EVALUATION  OF  EXPECTED  COST  OF  UNCERTAINTY 
BY  MONTE  CARLO  SIMULATION 


THE  SENSITIVE  FACTORS  ARF  - 


D (  2  •  6,10)  MEAN 

WITH  DEPENDENT  A( 
A (  2,  1,  8)  MEAN 

WITH  DEPENDENT  A( 
A (  2,  8,  9)  MEAN 

WITH  DEPENDENT  D( 
A (  1  ,  4,11)  MEAN 

WITH  DEPENDENT  D( 
A (  4  ,  3,  4  )  MEAN 

A (  2 ♦  9 ,  1 )  MEAN 

WITH  DEPENDENT  A( 


=  0.8500 

2,10,  1  > 

=  0.8500 

2,  1  ,  2 ) 

=  0.8000 

2,  5,  a) 

=  C.9500 

1  ,  2  ,  4  ) 

=  0.9000 

=  0.1000 

2,  9,10) 


VARIANCE  = 

VARIANCE  = 

VARIANCE  = 

VAPI ANCE  = 

V API ANCE  = 
VARIANCE  = 


MAXIMUM  NO.  OF  SAMPLES  THIS  RUN  =  250 

ALPH  A  -=  1  .9600 

DELTA  =  0.2000E  —  0  4 

CONFIDENCE  LEVEL  =  0.9500 


0. 0004 

0.0004 

0.0004 

0.000  1 

0.0004 

0.0004 


. 


. 
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TABLE  H-3 . 


Examples 


of  Detailed  Sample  Results 


SAMPLE  NO.  2 

SENSITIVE  FACTORS 

0 (  2,  6,10)  = 

A (  2.10,  1  )  = 

0.8782 

0.0718 

A  (  2  .  1  ,  8  )  = 

A (  2,  1  ,  2  )  = 

A (  2,  8,  9)  = 

0.8710 

0. 1 290 

0.8236 

A  (  1  ,  A  ,  1  1  )  = 

A  (  2,  4,11)  = 

TT.  0  764  ' 

0.9528 

0.9528 

A (  3 ,  4,11)  = 

A (  4,  4,11)  = 

D  (  1  .  2,  4  )  = 

0 .952  8 

0.9  52  8 

0.0472 

- 0 (" 2  ,  2,  4 T  = 

D {  3.  2,  4)  = 

D<  4 ,  2,  4  )  = 

0.0472 

0 . 0472 

0.0472 

A  (  '4,"  3',"  4  )  "=" 

A (  2,  9,  1  )  = 

A (  2 ,  9,10)  = 

0.9014 

0.1048 

0 .8952 

VALUE  OF  THE  REFERENCE  STRATEGY  =  - 

-0  .284  IE  — 0  1 

OPTIMAL  STRATEGY 

FOR  THIS  STATE  OF 

NATURE  - 

OBJECTIVE  FUNCTION  =  -0.2S56E-01* 

-  VARTABLE  NAME 

VALO  E 

FX  1 

0.81434 

FT2 

FX  3 

FX  4 

0 . 1 0500 

0 . 0 

0.0 

. ’  "  FX  5' 

FX6 

FX  7 

0 . 0 

0 . 03800 

0 . 0 

ncB 

FX9 

F  X  1  0 

0T0 - 

0.01564 

0 . 0 

.  fxn 

D  .  O042~9 
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TABLE  H-3  Continued 


SAMPLE  NO.  6 


SENSITIVE  FACTORS 


0( 

2. 

6. 

10  ) 

= 

0. 8  76  0 

A  ( 

2  . 

1  0  . 

1  ) 

= 

0.0740 

XT" 

2  . 

1  . 

8  ) 

= 

0.8139 

A  ( 

2  . 

1  , 

2  ) 

= 

0.1811 

A  ( 

2  . 

8. 

9  ) 

= 

0 . 8  20  1 

D I 

2 , 

3  * 

3) 

— 

0  70799 

A  ( 

1  . 

4. 

1  1  ) 

= 

0.9428 

A  ( 

2. 

4  . 

11  ) 

= 

0 .942  8 

"XT" 

3  9 

4  • 

1  l  > 

0.9428 

A  { 

4  , 

4, 

1  1  1 

= 

0 .9428 

D< 

1  . 

2. 

4  ) 

= 

0.0572 

-  Df  2i 

2, 

4) 

— 

0.0572 

D< 

3. 

2. 

4  ) 

= 

0.0572 

D< 

4  . 

2. 

4  ) 

= 

0 .0572 

XT" 

4  * 

J, 

4) 

0.9354 

A  ( 

2. 

9. 

1  ) 

= 

0.0770 

At 

2  . 

9, 

10) 

= 

0.9230 

VALUE  OF  THE  REFERENCE  STRATEGY  =  -0.2800E-01 


OPTIMAL  STRATEGY  FOR  THIS  STATE  OF  NATURE  - 
'""0T3JECTT  VE”~ FUWCT  I  ON  =  -0.  2800E-01 - 


VAR  T  ABLE  NA"ME - VALUE 

FX1  0.33997 

F5C2  0 . 03959 

FX3  0.0 

FX4  0.0 

- FX5 - 0  70 

FX6  0.03800 

FX7  0.0 

- FX8 - CT70 - 

FX  9  0.01517 

FX 1 0  0.0 

- - F5m - 0  70 


THE  RETTRET  = - 07TT 


1 

■  ,  . 


TABLE  H-4 


Listing  of  Sample  Points 


NO,  OF 

REGRET 

COST 

COST 

AMPLE 

certainty 

REF.  STRATEGY 

1 

0. 2647E-03 

—  0.2  553E—  0 1 

-0 . 2526E-0 1 

2 

0.  1424E-03 

-0 .2856E-01 

-0. 284 1E-0 1 

3 

0 .3247E-03 

—0.231 0E— 0 1 

-0 .2278E-01 

4 

0.111  3E-07 

-0 . 2869E-0 1 

-0. 2869E-0 1 

5 

-0. 3725E-08 

-0 .2664E-0 1 

-0.2664E-0 1 

6 

c 

. 

o 

-0. 2800E-01 

-0. 2800E-C 1 

7 

0 . 3725E-08 

-0 . 2779E-01 

-0.2779E-01 

8 

-0 . 3725E-08 

-0 .2606E-0 1 

-0. 2606E-0 l 

9 

-0.11  18E-07 

-0 . 2644E-01 

-0. 2644  E—  0 1 

1  0 

-0 .7451 E—  0  8 

-0 . 2602E-0 1 

-0.2602E-0 1 

1  1 

0 . 1  073E-03 

-0.28C8E-01 

-0. 2797E-0 1 

12 

-0 . 3725E-08 

—  0.26  72E—  0 1 

-0 . 2672E-0 1 

13 

-0.  1863E-07 

—  0.2  7  57E—  0 1 

-0.27S7E-01 

1  4 

0.390  IE-03 

— 0 • 2525E— 0 1 

-0 . 2486E-0 1 

1  5 

-0 . 3725E-07 

— 0 • 2671 E— 0 1 

-0. 267 1E-0 1 

16 

-0 .7451 E—  08 

-0.2757E— 0 1 

— 0.2757E— 01 

17 

0. 3725E-08 

-0 .2725E-0 1 

-0. 2725E-0 1 

1  8 

0. 2059E-03 

—0 .2491 E— 0 1 

-0.247  1  E  — 0 1 

19 

0 . 1622E-03 

-0 .2688E  — 01 

-0 . 2672E-0 1 

20 

0. 1 397E-03 

-0.2632E-0 1 

-0. 2619E-01 

21 

0.  10  9  1  E—  0  3 

-0 . 2550E-01 

-0. 2539C-0 1 

22 

0. 156  1 E— 0  3 

—  0.26  7  5E—  0 1 

-0 . 2659E-0 1 

23 

0 . 3246E-03 

-0 . 2782C-0 1 

-0. 2750E-01 

24 

0.2193E— 03 

-0 . 2543E-0 1 

-0.2526E— 01 

25 

0 . 7766E-04 

-0.2632E-01 

-0. 2675E-0 1 

26 

0.315  IE- 0  3 

-0 . 2593E-0 1 

-0 . 2562E-0 1 

27 

-0 . 1 l 13E-07 

-0 . 2860E-0 1 

-0 . 2860E-0 1 

28 

0. 0 

— 0.2802E— 01 

-0 . 2802E-0 1 

29 

0. 2316E-03 

-0 .282  IE-01 

-0 . 2798E-0 1 

30 

0. 24C5E-03 

-0 . 2579E-0 1 

-0. 2555E-01 

31 

0. 7806E-04 

-0 .  25A2E-01 

-0 .2534E-0 1 

32 

-0. 3725E-08 

-0.251  IE-01 

-0.251 1 E— 0 1 

33 

0 . 4 1 42E-03 

-C.2605E-0 1 

-0 . 2564E-0 1 

34 

-0 . 26C8E-07 

-0 .2680E-0 1 

-0 . 2680E-0 1 

35 

0 . 2386E-03 

-0.2  749E-01 

-0. 272CE-0 1 

36 

0. 1565E-06 

—  0.2747  E—  0 1 

-0 . 274  7  E—  0 1 

37 

0 . 19  56  E—  0  3 

-0 .2727E-0 1 

-0. 27C7C-0 1 

38 

0 .745 1 E-08 

—  0.271  8 E  —  01 

-0.271 8E— 0 1 

39 

0 . 3552E-03 

—  0.277  6E  — 0 1 

—  0 . 27  4 1 E— 0 1 

40 

0 . 9568E-04 

-0 .2669E-0 1 

-0 . 2659E-0 1 

4  1 

-0. 29  8  0  E— 0  7 

-0 . 278  7E-0 1 

-0.2787E-01 

42 

0 . 2288  E— 0 3 

-0.2602E-01 

-0 . 2S79E-0 1 

4  3 

0 . 26 89 E— 0  3 

-0.2722E-0 1 

-0 . 2695E-0 1 

44 

-0 . 745  IE-08 

-0.2766E-01 

-0 . 276OE-0 l 

45 

0.3189E-03 

-0 . 2426E-01 

-0 . 2390-E— 0  1 

46 

0 . 3725E-08 

-0.2749E-01 

-0 . 2749E-0 1 

47 

0. 2645E-03 

-  0 . 2  3  8 l e- 0 1 

-0. 2354E-01 

48 

o 

. 

o 

-0 .2647E-0  1 

— 0.2647E-01 

49 

0.371 7  E—  0  3 

-0 .2255E-01 

-0.22 1  BE  — 0 1 

50 

0 . 7524 E- 04 

-0 . 2602E-0 1 

-0 . 259SE-0 1 

51 

0.244 1 E-03 

-0.261 OE-O 1 

-0 • 2586E-0 1 

52 

0 . 2563E-04 

-0.2698E— 01 

-0.2695E-0 1 

53 

0 . 0 

-0.27  69e—  0 1 

-0 . 2769E-0 1 

54 

-0.1  490E-07 

—  0.2822 E  —  0  1 

-0 . 2622 E  — 0 1 
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-0. 37255-08 
-0 . 3 3536-07 
-0 . 37255-08 
-0 . 2606E— 07 
0.50 155-04 
-0. 74515-08 
0.11 185-07 
0 . 14375-03 
0. 271 35-03 
0.13305-03 
0.94335-04 
0.36795-03 
0  .  I  1  1 35-07 
-0.29305-07 
0 . 745  IE-08 
0 . 37255-08 
0 . 26485-03 
0 . 37255-08 
0.24255-03 
0.74515-03 
0 . 24 105-0  3 
0. 1 475E-03 
0 . 36795-03 
-0.37255-08 
0 . 32865-03 
-0 . 3725E-07 
0.25785-03 
0.546  15-04 
0.2743E-03 
0. 4052E- 03 
0 • 37255-08 
0.11  185-07 
0 . 2595E-0  3 
0.4201 E—  0  3 
0 . 35685-03 
0.0 

-0.1 490E-07 
0 . 2075E-04 
0 . 33465-03 
0.11  18E-07 
0.357  1 E—  03 
0.0 

0 . 37255-08 
0.  1  1075-03 
0 • 38665-04 
0.31865-03 
-0.745  1  5-03 
0.50325-04 
0 . 0 

0. 13195-03 
0. 4466E-03 
0. 10785-03 
0.74515-08 
0.931  IE-04 
-0. 14  90  L— 0  7 
0.87505-04 
-0 . 745 1 5-08 
-  0. 37255— C8 
0.40745-03 
-0.74515-08 


-0.26385-01 
-0.27706-01 
-0 .26885-0 1 
-0. 27775-01 
-0.27015-01 
-0.26735-01 
-0.27365-01 
-0 . 2  748E-01 
-0.26815-01 
-0 .264  35-01 
-0.27265-01 
—  0.2662  £—  0 1 
-0. 2879E-0 1 
— 0 • 2800E— 0 1 
-0.28235-01 
-0.28245-01 
-0.2721E-01 
-0.26715-01 
-0.26535-01 
-0. 26475-01 
—0 . 2535E-0 1 
-0 . 2565E-0 1 
-0. 25355-01 

—  0.269  6E—  0 1 
-0.2702E— 0 1 
-0 .2663E-01 
-0.2653E— 01 
-0.27655-0 1 
-0.27315-01 
-0.2256E— 01 
-0.26355-0 1 
-0.268  16-01 
-0.25695-01 
-0 .25875-01 
-C.27C5E-01 
-0 .24935-0 1 
-0 . 28565-01 

—  0.2  5*3  3  5—  0  1 
-0 .2  5845-0 1 
-0 .26975-0 1 
-0.264  IE-01 
-0 .27C0E-0 1 
-0.25715-01 
— 0.2614E— 01 
-0.25655-01 
-0.27105-0 1 
-0.27995-01 
-0.2628E-01 
-0.269  0E—  0 1 
-0.26295-0 1 
-0 .2427E-01 

—  C. 28436— Cl 
-0.28006-0 1 
- C .27055-01 
-0.26306-01 

—  0.27  4  8E—  0 1 
-0 . 26475-01 
-0.25136-01 
-0.251 25-01 
-0.27586-0 1 


-0. 26385-0 1 
-0.27706-01 
-0 . 2683E-0 1 
-0.27775-0 1 
-0. 2696E-0 1 
-0 . 2673E-0 1 
-0 . 27365-0 1 
-0.2734E-0 1 
-0.26545-01 
-0. 26306-0 1 
-0.271 7E-0 1 
-0 . 26255-0 1 
-0. 2879E-0 1 
-0.28005-01 
-0. 2823E-0 1 
-0. 2Q24E-0 1 
-0 . 2694E-0 1 

—  0 • 267 1 E—  0  1 
-0 . 26295-0 1 
-0. 26475-01 
-0.251 15-0 1 
-0. 2550E-01 
-0.2499E— 01 
-0. 2696E-0 1 
-0.26705-0 1 
-0.26635-0 1 
-0.26275-01 

—  0 . 2760  E— 0 1 
-0. 2704E-0 1 
-0.22166-0 1 
-0.26355-0 1 
-0.26815-0  1 
-0 . 2543E-01 

—  0 . 2545E—  0 1 
-0 . 2669E-0 1 
-0.2493E-0 1 

—  0 • 285  6E  —  0 1 
-0. 2531E-01 
-0 . 25505-01 
-0. 2697E-0 1 
-0 . 26065-01 
-0.27005-0 1 
-0 . 257 1E-0 1 
-0.26035-0 1 
-0. 256 1E-0 1 
-0 . 26785-0 1 
-0. 2799E-0 1 
-0 . 26235-0 1 
-0.26905-0 1 
-0.2616E-01 
-0 . 2382E-0 1 
-0. 2832E-0 1 
-0 . 28006-0 1 
-0 . 2696E-0  1 
-0. 2630E-0 1 
-0 . 2739E-0 1 
-0 . 264  76-0 1 
-0.251 35-0 1 
-0.2471 E— 0 1 
-0 . 2758E-0 1 
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1  1  5 

0.3858E-C3 

-0.2425E-01 

—  0.238  7t  — 0 1 

1  16 

0*2321 E  — 0  3 

-0 .2672E-0 1 

-0 .2649E-0 1 

1  1  7 

o 

• 

o 

-0.26  38E-0 1 

-0. 2638E-0  1 

1 1  a 

0.341  PE-03 

-0.2352E-01 

-0 . 231 8E-0 1 

1 19 

0 . 1 632E-03 

-0 .2445E-01 

-0.2429E— 01 

120 

0. 4000E-03 

-0 . 2399E-0 1 

—  0.235 9 E  —  01 

121 

0.48  18E-04 

—  0.2  5  55  E—  0 1 

-0 . 2550E-01 

1  22 

0. 4605E-03 

-0.2588E-01 

-0.2542E-01 

123 

0 .9909E-0  5 

-0.2491E-01 

-0.2490E— 01 

1  24 

0.4147E-03 

—0 • 2539E— 0 1 

-0 . 2498E-0 1 

1  25 

O 

. 

o 

-0 .2662E-0 1 

-0 . 2662E-0 1 

126 

0. 1339E-03 

-0.27C8E-01 

-0 . 2695E-0 1 

1  27 

0. 1505E-03 

—  0.2  583E— 0 1 

—0 . 2568E— 0 1 

1  28 

0 . 745 1 E-09 

-0 . 2863E-0 1 

-0. 2863E-0 1 

1  29 

0. 2S68E-03 

—  0.2361 E—  0 1 

-0 . 2331E-0 1 

130 

0.431 2E—  0  3 

-0.2577E-01 

-0.2534E-01 

131 

0 . 259  1E-0  3 

— 0 . 2754E— 0 1 

-0 . 2728E-0 1 

132 

0. 1763E-03 

-0 .2669E-0 1 

-0. 2651E-01 

l  33 

0.2755E-03 

-0 .2765E-01 

— 0 • 2738E— 0 1 

1  34 

0.  10  0  7  E— 0  3 

—  0.2  580E  — 0 1 

-0 . 2570E-0 1 

135 

0 . 2  1  40 E—  0  3 

—  0.2  554  E  — 0 1 

-0 . 2533E-0 1 

1  36 

0 . 3705E-03 

—  0.277  4  E  — 0 1 

-0. 2737E-01 

1  37 

0 . 0 

—  0.257  0E  — 0 1 

-0 . 2570E-01 

1  38 

—  0  •  3  3  5  3  E—  0  7 

—  0 . 2  747E  — 0 1 

-0 . 2747E-0 1 

1  39 

0. 78  18E-04 

—  0.27  COE—  0 1 

-0 . 2692E-0 1 

140 

0 . 1584 E- 0  3 

—  0.2564  E—  0 1 

-0 . 2548E-0 1 

141 

0 . 6553E-05 

-0 . 2549E-0 1 

-0 . 2548E-0 1 

142 

0.  1  762E-03 

-C .26C6E-01 

—  0 • 2588E— 0  1 

143 

-0. 7451E-09 

-0.2726E-01 

-0. 2726E-0 1 

1  44 

-0 . 3725E-08 

-0 .2532E-01 

— 0 • 2532E— 0 1 

1  45 

-0 . 293  0  E—  0  7 

-0 .2642E-01 

-0. 2642E-0 1 

146 

—  0.7451 E—  0  8 

-0.2675E-01 

-0 . 2675E-0 1 

1  47 

0 . 3725E-08 

-0 . 2858E-0 1 

—0 . 2858E— 0 1 

1  48 

-0. 3725E-08 

—  0.267  CE— 0 1 

-0 . 2670E-0 1 

149 

0. 2533E-0J 

-0 .256  IE  — 01 

-0. 2536E-0 1 

150 

0 . 2 185E-03 

—  0.252  7E— 0 1 

-0 .2505E-0 1 

1  51 

o 

. 

o 

-0 .27-15E-01 

—  0  •  27  1  5E— 0  1 

152 

0 . 1 970E-03 

-0.2e61E-01 

-0.2842E-01 

153 

0 . 3725E-08 

-0 .2690E-01 

-0 . 2690E-0 1 

1  54 

0 . 3725E-C8 

-0 . 25 1 OE-O 1 

-0.2510E-01 

1  55 

0 . 3356E-03 

-0 . 2586E-C 1 

-0 .2553E-01 

1  56 

0. 5953E-04 

—0.2561 E— 0 1 

-0.2555E-01 

1  57 

-0. 1863E-07 

-0.2725E-01 

-0 . 2725E-0 1 

1  58 

0.2715E-03 

-0 .2664E-0 1 

— 0 . 2637E— 0 1 

159 

0 . 228 RE— 03 

-0 . 249  1E-0 1 

-0 . 2468E-0 1 

1  60 

0 . 7962E-04 

-C. 2572E-0 1 

-0 . 2564E-0 1 

161 

-0 .29R0E-07 

-0 .2866E-0 1 

-0. 2866E-0 l 

162 

0. 3276E-03 

-0 . 235RE-0 1 

-0.2326E-01 

1  63 

0 . 2844 F.  —  03 

—  0.2514  E— 0 1 

-0 . 2486E-01 

1  64 

0 . 4258E-03 

—  0.258  3E—  0 1 

—  0.2540  E—  0 1 

1  65 

0. 252RE-03 

-0. 273  IE-01 

-0. 2706E-0 1 

166 

0 . 2261E-03 

-0.2485E-0 1 

-0 . 2462E-0 1 

167 

0 . 1809E-0  3 

-0.2652E-01 

-0 . 2534E-0 1 

1  68 

-  0 . 7  4  5  1  E-  0  3 

—  0.2581 E—  0 1 

-0. 258 1 E—  0 1 

1  69 

0 . 4355E-05 

-0 .2759E-0 1 

-0 . 2758L-0 1 

1  70 

0. 2153L-03 

— 0.2712E— 01 

-0 . 269  1  E  — 0  1 

1  71 

0.  12  19E-03 

-0 .2590E-0 1 

-0. 2578E-0  1 

1  72 

-0 . 3725E-07 

-0 .2771  E  — 0 1 

-0 .2771 E— 0 1 

1  73 

0 . 2364  E  — 0 3 

-0 . 2457E-01 

-0 . 2434E-0 1 

1  74 

0. 2800E-03 

—  0.2  55 0E— 0 1 

-0. 2522E-0 1 
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1  75 

0.32885-03 

-0.26685-01 

-0 .26355-0 1 

176 

-0 • 37255-08 

-0 .248  35-0 1 

-0 . 24835-0 1 

1  77 

0. 14  90  F—  0  7 

— 0.2726E— 0 1 

-0. 2726E-0 1 

1  78 

0. 1  964E— 0  3 

-0.2594E— 0 1 

-0 . 2574E-0 1 

l  79 

0.37255-08 

-0.26735-01 

-0. 26735-0 1 

1  80 

0.41 835-03 

-0 .24695-01 

-0.24285-0 1 

181 

0 .745  IE-08 

—  0  •  2  e  3  75—  0  1 

-0 . 2837E-0 1 

l  82 

0.659 1 E— 0  4 

-0 .2597E-01 

-0. 25915-0 1 

183 

0.3016E-03 

-0. 24675-01 

-0. 2437E-0 1 

1  84 

-0. 1 1 1SE-07 

-0.266  1 E—  0 1 

-0 . 266 1E-0 1 

1  85 

0 .20275-03 

-0 .27785-0 1 

—  0 . 2757E—  0 1 

1  86 

0 . 2387E-03 

— 0 • 2692E— 0 1 

-0 . 2668E-0 1 

1  87 

0 .2325E-03 

—  0.2  4  85E—  0 1 

-0 . 2462E-0 1 

1  88 

0 . 2526E-03 

-0.2616E— 01 

-0. 2790E-0 1 

1  89 

0.0 

-0 .2809E-0 1 

— 0 . 2809E— 0 1 

190 

0. 8819E-04 

—0 .26565—0 1 

-0 . 2648E-0 1 

191 

0 . 6198E-04 

-0.2557E— 01 

-0. 255  IE- 01 

192 

0.3260E-04 

—  0.271 5  E  — 0 1 

-0.271 2E-0 1 

193 

0 . 745  15-08 

-0.2693E-01 

-0. 2693E-01 

1  94 

0.0 

-0.282  IE-01 

-0. 2821E-0 1 

195 

0 . 4832F-03 

-0.2568E— 01 

-0 . 2520  E— 0 1 

1  96 

-0.745 1 E— 08 

—  0.271 0E—  0 1 

-0.271 OE-O 1 

197 

0.  1427E-04 

-0.2626E-01 

-0.2624E— 01 

1  98 

o 

. 

o 

-0 .27C6E-0 1 

-0. 2706E-0 1 

199 

0.227  2E-03 

-0.2556E-01 

-0 . 2533E-0 1 

200 

0 . 2188E-03 

-C.24C9E-01 

-0. 2387E-0 1 

' 
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3.  DOCUMENTATION 
3.1  ECOST 

Subroutine  ECOST  performs  a  Monte  Carlo 
simulation  to  estimate  the  expected  cost  of 
uncertainty  in  specified  model  parameters,  controlling 
the  generation  of  random  samples,  ensuring  accuracy 
as  outlined  in  Appendix  A,  calculating  the  required 
statistics,  and  printing  a  summary  of  the  results. 

The  variables  in  the  COMMON  block  /EC/  are  described 
below;  those  which  must  be  defined  prior  to  entry 
are  marked  with  an  asterisk 


RM  (I)  * 

th 

expected  value,  I  sensitive  parameter 

S  (I)  * 

variance,  It^L  sensitive  parameter 

AT  (I) * 

upper  limit  -  I sensitive  parameter 

SUM ( J) 

workspace 

STAT  (J) 

storage  of  statistics 

ALPHA* 

a  -  defined  Appendix  A,  section  1 

DELTA* 

required  precision  of  estimate 

CONF* 

confidence  level  required 

NTS (L, 8) * 

th 

sensitive  parameter  definition,  L 

parameter (NTS  L,l)  -  type  of  base 

parameter  . 

=  1  -  a  (I ,  J  ,K) 

=  2  -  a  (i  ,  J  ,K ) 

' 
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=  3  -  d(I,J,K) 

=  4  -  d(i,J,K) 

=  5  -  CON  (I) 

NTS  (L,5)  -  type  of  coupled  parameter 
as  above 

=0  -  no  coupled  parameter 

NTS  (L,2)  ,  NTS  (L,6)  -  I 

NTS  (L, 3)  ,  NTS  (L,  7)  -  J 

NTS  (L , 4 )  ,  NTS  (L , 8 )  -  K 


NSF* 

no.  of  sensitive  parameters 

MAXSAM* 

maximum  no.  of  samples  this  run 

NINSAM* 

minimum  no.  of  samples  before 

any  statistics 

calculating 

NS  AM* 

no.  of  samples  taken 

IX 

odd  integer  for  random  number 

generator 

NREJ 

no.  of  samples  rejected. 

3.2  EVAL,  AVAL,  IN  IT  3,/  REFEED 

These  subroutines  are  adequately  documented 
by  comment  cards  included  with  the  listings.  Subroutine 
AVAL  uses  IBM's  subroutine  RM  (32)  for  random  number 
generation . 

3.3  Mainline  E.C. 

This  program  estimates  the  expected  cost  of 
uncertainty  using  Monte  Carlo  simulation  as  presented 
in  chapter  III,  section  F,  and  Appendix  A,  section  1. 


■ 
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The  input  data  requred  are:  model  data  similar  to 
that  listed  in  table  C-l,  defined  in  table  C-3, 
but  with  optimal  split  factors;  variable  names  for 
LPSOL,  listed  in  table  D-l;  and  expected  cost 
estimation  data  as  listed  in  table  H-l.  The  mainline 
produces  a  summary  of  initial  conditions,  which 
appears  as  table  H-2.  Examples  of  the  detailed 
sample  results  produced  by  EVAL  appear  as  table  H-3 
and  a  summary  listing  of  sample  results  produced  by 
ECOST  appears  as  table  H-4.  The  summary  of  expected 
cost  estimation  results  appears  as  table  18. 

Subroutines  required  are  documented  in 
this  appendix  or  as  follows: 

C 
E 


INPUT  -  Appendix 

INIT  -  Appendix 
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